commit b979854f538894bfb9b0534af9f6325ef88b0447 from: rsc date: Fri Mar 18 18:53:21 2005 UTC bug fix commit - 7924d524b9ea212ef2ef3e73bfcd197167478fdd commit + b979854f538894bfb9b0534af9f6325ef88b0447 blob - f0311aa8b490844e893b38f4974509f3e0b86c21 blob + 9f87b8a1910cadd176f3b8412105e5f77d61d057 --- dist/addsrclinks +++ dist/addsrclinks @@ -3,7 +3,7 @@ @_ = <>; my $root = $ENV{'PLAN9'}; my $html = join("", @_); -$html =~ s;$root;XXX$root;g; +$html =~ s;$root/;XXX$root/;g; while($html =~ /((.|\n)*)XXX($root\/([a-zA-Z0-9_.\/]|−)*[a-zA-Z0-9_\/])((.|\n)*)/){ ($a, $b, $c) = ($1, $3, $5); $b =~ s/−/-/g;