o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bug fix

Browse source
This commit is contained in:
rsc 2005-03-18 18:53:21 +00:00
parent 7924d524b9
commit b979854f53
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
dist/addsrclinks vendored
View file

@ -3,7 +3,7 @@
@_ = <>; @_ = <>;
my $root = $ENV{'PLAN9'}; my $root = $ENV{'PLAN9'};
my $html = join("", @_); my $html = join("", @_);
$html =~ s;$root;XXX$root;g; $html =~ s;$root/;XXX$root/;g;
while($html =~ /((.|\n)*)XXX($root\/([a-zA-Z0-9_.\/]|&#8722;)*[a-zA-Z0-9_\/])((.|\n)*)/){ while($html =~ /((.|\n)*)XXX($root\/([a-zA-Z0-9_.\/]|&#8722;)*[a-zA-Z0-9_\/])((.|\n)*)/){
($a, $b, $c) = ($1, $3, $5); ($a, $b, $c) = ($1, $3, $5);
$b =~ s/&#8722;/-/g; $b =~ s/&#8722;/-/g;