From 43f18fecb9da4867d18d6296b1513227fc0426bf Mon Sep 17 00:00:00 2001
From: "cyeh%bluemartini.com"
 <cyeh%bluemartini.com@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Mon, 21 Aug 2000 19:50:41 +0000
Subject: [PATCH] fix for bug #44622: perl5.6 vs perl5.005 -w: more anal 5.6
 causes errors. patches by mtakacs@pacbell.net.

git-svn-id: svn://10.0.0.236/trunk@76788 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/bugzilla/CGI.pl      | 2 +-
 mozilla/webtools/bugzilla/processmail | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/mozilla/webtools/bugzilla/CGI.pl b/mozilla/webtools/bugzilla/CGI.pl
index 085b31cf30c..9c7484b93e4 100644
--- a/mozilla/webtools/bugzilla/CGI.pl
+++ b/mozilla/webtools/bugzilla/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/mozilla/webtools/bugzilla/processmail b/mozilla/webtools/bugzilla/processmail
index 5431fda11a3..9019287febd 100755
--- a/mozilla/webtools/bugzilla/processmail
+++ b/mozilla/webtools/bugzilla/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);