]> git.ipfire.org Git - thirdparty/bugzilla.git/commitdiff
Fix for bug 57848, perl warnings in several files.
authorjustdave%syndicomm.com <>
Fri, 1 Jun 2001 09:07:27 +0000 (09:07 +0000)
committerjustdave%syndicomm.com <>
Fri, 1 Jun 2001 09:07:27 +0000 (09:07 +0000)
Patch by Nick Hibma <n_hibma@qubesoft.com>
r= justdave@syndicomm.com

colchange.cgi
importxml.pl
move.pl

index f825228ea6409b4c6c0d1a62da461f81d1c1c6c5..f3521b7ad3e905f25d33d5051d455bb6baaa7398 100755 (executable)
 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";
index b4b27b1e0bd1433f9243ef5fe08ee357854b714a..6f2ca27060d2e051670611dc9bf0dfeacb8081de 100755 (executable)
@@ -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;
diff --git a/move.pl b/move.pl
index 921e8e74e2c94a9294f7732baa327f46f95e623d..42eb96351c4a2a4df4e97a7d5921d94a1514b7aa 100755 (executable)
--- a/move.pl
+++ b/move.pl
@@ -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 " .