From b979854f538894bfb9b0534af9f6325ef88b0447 Mon Sep 17 00:00:00 2001 From: rsc Date: Fri, 18 Mar 2005 18:53:21 +0000 Subject: bug fix --- dist/addsrclinks | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'dist/addsrclinks') diff --git a/dist/addsrclinks b/dist/addsrclinks index f0311aa8..9f87b8a1 100755 --- a/dist/addsrclinks +++ b/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; -- cgit v1.2.3