Checking in a fix for bug #187239--preventing fully qualified paths from being displayed.
This commit is contained in:
Родитель
a17d55e34a
Коммит
09bc5d19cb
|
@ -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/&/&/g;
|
||||
$_ =~ s/</</g;
|
||||
$_ =~ s/>/>/g;
|
||||
print "$who: $_";
|
||||
if (($_ =~ /RCS file/) || ($_ =~ /rcsdiff/)) {
|
||||
$_ =~ s/(^.*)(.*\/)(.*)/$1 $3/;
|
||||
print "$who: $_";
|
||||
} else {
|
||||
$_ =~ s/&/&/g;
|
||||
$_ =~ s/</</g;
|
||||
$_ =~ s/>/>/g;
|
||||
print "$who: $_";
|
||||
}
|
||||
}
|
||||
$didone = 1;
|
||||
}
|
||||
|
|
Загрузка…
Ссылка в новой задаче