Fixed stupid perl warning.

git-svn-id: svn://10.0.0.236/trunk@51076 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
terry%mozilla.org 1999-10-19 00:04:59 +00:00
parent a310c234a4
commit a4508fd4ea
2 changed files with 2 additions and 2 deletions

View File

@ -380,7 +380,7 @@ sub print_ci {
# print " $ci->[$::CI_DIR]/$ci->[$::CI_FILE]<a>\n";
# }
my $d = "$ci->[$::CI_DIR]/$ci->[$::CI_FILE]";
if ($::query_module eq 'allrepositories') {
if (defined $::query_module && $::query_module eq 'allrepositories') {
$d = "$ci->[$::CI_REPOSITORY]/$d";
}
$d =~ s:/:/ :g; # Insert a whitespace after any slash, so that

View File

@ -26,7 +26,7 @@ use strict;
# Shut up misguided -w warnings about "used only once". For some reason,
# "use vars" chokes on me when I try it here.
sub sillyness {
sub CGI_pl_sillyness {
my $zz;
$zz = %::FILENAME;
}