Fix for bug 57848, perl warnings in several files.

Patch by Nick Hibma <n_hibma@qubesoft.com>
r= justdave@syndicomm.com
This commit is contained in:
justdave%syndicomm.com 2001-06-01 02:07:28 +00:00
Родитель c1e1585ec8
Коммит ed939131dc
3 изменённых файлов: 6 добавлений и 2 удалений

Просмотреть файл

@ -23,6 +23,10 @@
use diagnostics;
use strict;
sub sillyness { # shut up "used only once" warnings
my $zz = @::legal_keywords;
}
require "CGI.pl";
print "Content-type: text/html\n";

Просмотреть файл

@ -49,7 +49,7 @@ use strict;
my $path = $0;
$path =~ s#(.*)/[^/]+#$1#;
chdir $path;
use lib ($path);
use lib "$path";
use XML::Parser;
use Data::Dumper;

Просмотреть файл

@ -109,7 +109,7 @@ foreach my $id (split(/:/, $::FORM{'buglist'})) {
SendSQL("INSERT INTO bugs_activity " .
"(bug_id,who,bug_when,fieldid,oldvalue,newvalue) VALUES " .
"($id,$exporterid,now(),$fieldid,'$cur_status','RESOLVED')");
my $fieldid = GetFieldID("resolution");
$fieldid = GetFieldID("resolution");
my $cur_res= $bug->resolution;
SendSQL("INSERT INTO bugs_activity " .
"(bug_id,who,bug_when,fieldid,oldvalue,newvalue) VALUES " .