Fixed perl warnings.

This commit is contained in:
terry%mozilla.org 1999-10-19 16:41:40 +00:00
parent aec69cc2f4
commit c484cf50dc

View File

@ -53,6 +53,7 @@ $::TreeID = 'default'
# get dir, remove leading and trailing slashes
my $dir = $::FORM{"dir"};
$dir = "" unless defined $dir;
$dir =~ s/^\/([^:]*)/$1/;
$dir =~ s/([^:]*)\/$/$1/;
@ -79,7 +80,7 @@ validateRepository($CVS_ROOT);
my $s = "";
if( $rev ne "" ){
if ($rev) {
$s = "for branch <i>$rev</i>";
}