From: justdave%syndicomm.com <>
Date: Fri, 1 Jun 2001 09:07:27 +0000 (+0000)
Subject: Fix for bug 57848, perl warnings in several files.
X-Git-Tag: bugzilla-2.14~115
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f30e92711a48569225bd1810b11c7ea91bae14d1;p=thirdparty%2Fbugzilla.git

Fix for bug 57848, perl warnings in several files.
Patch by Nick Hibma <n_hibma@qubesoft.com>
r= justdave@syndicomm.com
---

diff --git a/colchange.cgi b/colchange.cgi
index f825228ea6..f3521b7ad3 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 b4b27b1e0b..6f2ca27060 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 921e8e74e2..42eb96351c 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 " .