Fix for bug 57848, perl warnings in several files.

Patch by Nick Hibma <n_hibma@qubesoft.com>
r= justdave@syndicomm.com

3 files changed, 6 insertions, 2 deletions

diff --git a/colchange.cgi b/colchange.cgi
index f825228ea..f3521b7ad 100755
--- a/colchange.cgi
+++ b/colchange.cgi
@@ -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";
diff --git a/importxml.pl b/importxml.pl
index b4b27b1e0..6f2ca2706 100755
--- a/importxml.pl
+++ b/importxml.pl
@@ -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 921e8e74e..42eb96351 100755
--- 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 " .