зеркало из https://github.com/mozilla/gecko-dev.git
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:
Родитель
c1e1585ec8
Коммит
ed939131dc
|
@ -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 " .
|
||||
|
|
Загрузка…
Ссылка в новой задаче