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
This commit is contained in:
cyeh%bluemartini.com
2000-08-21 19:50:41 +00:00
parent 6fcb2971f9
commit 43f18fecb9
2 changed files with 5 additions and 5 deletions

View File

@@ -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);