From f30e92711a48569225bd1810b11c7ea91bae14d1 Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Fri, 1 Jun 2001 09:07:27 +0000
Subject: Fix for bug 57848, perl warnings in several files. Patch by Nick
 Hibma <n_hibma@qubesoft.com> r= justdave@syndicomm.com

---
 colchange.cgi | 4 ++++
 importxml.pl  | 2 +-
 move.pl       | 2 +-
 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 " .
-- 
cgit v1.2.3-24-g4f1b