summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorcyeh%bluemartini.com <>2000-08-22 04:50:41 +0200
committercyeh%bluemartini.com <>2000-08-22 04:50:41 +0200
commite8b93c7c68c4b56cdc10249ba3740a504f30e2ee (patch)
tree255dc20e2b66d93674fb7839e75049709b6e88d4
parent2cd9592d7760d10b8840e155380b5dc4d2b62ff0 (diff)
downloadbugzilla-e8b93c7c68c4b56cdc10249ba3740a504f30e2ee.tar.gz
bugzilla-e8b93c7c68c4b56cdc10249ba3740a504f30e2ee.tar.xz
fix for bug #44622: perl5.6 vs perl5.005 -w: more anal 5.6 causes errors.
patches by mtakacs@pacbell.net.
-rw-r--r--CGI.pl2
-rwxr-xr-xprocessmail8
2 files changed, 5 insertions, 5 deletions
diff --git a/CGI.pl b/CGI.pl
index 085b31cf3..9c7484b93 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -118,7 +118,7 @@ sub ParseUrlString {
$isnull{$name} = 1;
}
}
- if (defined %isnull) {
+ if (%isnull) {
foreach my $name (keys(%isnull)) {
if (!defined $f->{$name}) {
$f->{$name} = "";
diff --git a/processmail b/processmail
index 5431fda11..9019287fe 100755
--- a/processmail
+++ b/processmail
@@ -471,9 +471,9 @@ sub NewProcessOneBug {
for my $person (@personlist) {
$count++;
- NewProcessOnePerson($person, $count, \@headerlist, \%values,
- \%defmailhead, \%fielddescription, $difftext,
- $newcomments, $start, $id, 1);
+ &NewProcessOnePerson($person, $count, \@headerlist, \%values,
+ \%defmailhead, \%fielddescription, $difftext,
+ $newcomments, $start, $id, 1);
}
SendSQL("UPDATE bugs SET lastdiffed = '$end', delta_ts = delta_ts " .
@@ -510,7 +510,7 @@ sub NewProcessOnePerson ($$\@\%\%\%$$$$) {
foreach my $watcher ( $watcherSet->toArray() ) {
- NewProcessOnePerson(DBID_to_name($watcher),
+ &NewProcessOnePerson(DBID_to_name($watcher),
$count, \@headerlist, \%values,
\%defmailhead, \%fielddescription, $difftext,
$newcomments, $start, $id, 0);