Commit e8b93c7c authored by cyeh%bluemartini.com's avatar cyeh%bluemartini.com

fix for bug #44622: perl5.6 vs perl5.005 -w: more anal 5.6 causes errors.

patches by mtakacs@pacbell.net.
parent 2cd9592d
...@@ -118,7 +118,7 @@ sub ParseUrlString { ...@@ -118,7 +118,7 @@ sub ParseUrlString {
$isnull{$name} = 1; $isnull{$name} = 1;
} }
} }
if (defined %isnull) { if (%isnull) {
foreach my $name (keys(%isnull)) { foreach my $name (keys(%isnull)) {
if (!defined $f->{$name}) { if (!defined $f->{$name}) {
$f->{$name} = ""; $f->{$name} = "";
......
...@@ -471,9 +471,9 @@ sub NewProcessOneBug { ...@@ -471,9 +471,9 @@ sub NewProcessOneBug {
for my $person (@personlist) { for my $person (@personlist) {
$count++; $count++;
NewProcessOnePerson($person, $count, \@headerlist, \%values, &NewProcessOnePerson($person, $count, \@headerlist, \%values,
\%defmailhead, \%fielddescription, $difftext, \%defmailhead, \%fielddescription, $difftext,
$newcomments, $start, $id, 1); $newcomments, $start, $id, 1);
} }
SendSQL("UPDATE bugs SET lastdiffed = '$end', delta_ts = delta_ts " . SendSQL("UPDATE bugs SET lastdiffed = '$end', delta_ts = delta_ts " .
...@@ -510,7 +510,7 @@ sub NewProcessOnePerson ($$\@\%\%\%$$$$) { ...@@ -510,7 +510,7 @@ sub NewProcessOnePerson ($$\@\%\%\%$$$$) {
foreach my $watcher ( $watcherSet->toArray() ) { foreach my $watcher ( $watcherSet->toArray() ) {
NewProcessOnePerson(DBID_to_name($watcher), &NewProcessOnePerson(DBID_to_name($watcher),
$count, \@headerlist, \%values, $count, \@headerlist, \%values,
\%defmailhead, \%fielddescription, $difftext, \%defmailhead, \%fielddescription, $difftext,
$newcomments, $start, $id, 0); $newcomments, $start, $id, 0);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment