Checking in a fix for bug #187239--preventing fully qualified paths from being displayed.

This commit is contained in:
tara%tequilarista.org 2003-04-02 05:42:22 +00:00
Родитель a17d55e34a
Коммит 09bc5d19cb
2 изменённых файлов: 10 добавлений и 6 удалений

Просмотреть файл

@ -197,8 +197,7 @@ foreach $root (@SRCROOTS) {
}
}
if (!$found) {
print "<FONT SIZE=5><B>Error:</B> $opt_subdir not found in "
.join(',', @SRCROOTS), "</FONT>\n";
print "<FONT SIZE=5><B>Error:</B> $opt_subdir not found.";
exit;
}

Просмотреть файл

@ -85,10 +85,15 @@ for my $k (@revs) {
}
open( DIFF, "$rcsdiffcommand -u -r$prevrev -r$rev $fullname 2>&1|" );
while(<DIFF>){
$_ =~ s/&/&amp;/g;
$_ =~ s/</&lt;/g;
$_ =~ s/>/&gt;/g;
print "$who: $_";
if (($_ =~ /RCS file/) || ($_ =~ /rcsdiff/)) {
$_ =~ s/(^.*)(.*\/)(.*)/$1 $3/;
print "$who: $_";
} else {
$_ =~ s/&/&amp;/g;
$_ =~ s/</&lt;/g;
$_ =~ s/>/&gt;/g;
print "$who: $_";
}
}
$didone = 1;
}