Fixed stupid perl warnings.

diff --git a/CGI.pl b/CGI.pl
index 2b137168581d721ea92e0f909097c807b26ac4e5..76adcc702a37495fe79a83b1b490a2f1d95d9e4e 100644 (file)
--- a/CGI.pl
+++ b/CGI.pl
@@ -23,6 +23,14 @@
 use diagnostics;
 use strict;
 
+# Shut up misguided -w warnings about "used only once".  For some reason,
+# "use vars" chokes on me when I try it here.
+
+sub sillyness {
+    my $zz;
+    $zz = %::FILENAME;
+}
+
 use CGI::Carp qw(fatalsToBrowser);
 
 require 'globals.pl';

diff --git a/bug_form.pl b/bug_form.pl
index 665d82f62b7eadb3dd50760c1b33e17f61afa623..f1441f54d627de5f8ad5163df040bb553c71f072 100644 (file)
--- a/bug_form.pl
+++ b/bug_form.pl
@@ -21,6 +21,22 @@
 use diagnostics;
 use strict;
 
+# Shut up misguided -w warnings about "used only once".  For some reason,
+# "use vars" chokes on me when I try it here.
+
+sub bug_form_pl_sillyness {
+    my $zz;
+    $zz = %::FORM;
+    $zz = %::components;
+    $zz = %::prodmaxvotes;
+    $zz = %::versions;
+    $zz = @::legal_opsys;
+    $zz = @::legal_platform;
+    $zz = @::legal_product;
+    $zz = @::legal_priority;
+    $zz = @::legal_resolution_no_dup;
+    $zz = @::legal_severity;
+}
 
 my %knownattachments;
 

diff --git a/defparams.pl b/defparams.pl
index 56a63cf6de8a39b3887ae31abb4b6119a7f30fa2..388c4139d4bd75046fc17034e8665036de33f091 100644 (file)
--- a/defparams.pl
+++ b/defparams.pl
@@ -26,6 +26,15 @@
 use diagnostics;
 use strict;
 
+# Shut up misguided -w warnings about "used only once".  For some reason,
+# "use vars" chokes on me when I try it here.
+
+sub bug_form_pl_sillyness {
+    my $zz;
+    $zz = %::param_checker;
+    $zz = %::param_desc;
+    $zz = %::param_type;
+}
 
 sub WriteParams {
     foreach my $i (@::param_list) {

diff --git a/editcomponents.cgi b/editcomponents.cgi
index 371c27b72d9a0f5bd24fb8a7f881defc62321aa5..322cd2c27590e2e20df51d6d2afcc229407700a5 100755 (executable)
--- a/editcomponents.cgi
+++ b/editcomponents.cgi
@@ -22,6 +22,15 @@ use strict;
 require "CGI.pl";
 require "globals.pl";
 
+# Shut up misguided -w warnings about "used only once".  For some reason,
+# "use vars" chokes on me when I try it here.
+
+sub sillyness {
+    my $zz;
+    $zz = $::buffer;
+}
+
+
 my $dobugcounts = (defined $::FORM{'dobugcounts'});
 
 

diff --git a/globals.pl b/globals.pl
index 2f915ca5fea541f7b824c697d2c6d106c361f870..c1da2e828ee0ebbdc876068207af79ada4836c8f 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -22,6 +22,29 @@
 
 use diagnostics;
 use strict;
+
+# Shut up misguided -w warnings about "used only once".  For some reason,
+# "use vars" chokes on me when I try it here.
+
+sub globals_pl_sillyness {
+    my $zz;
+    $zz = @main::chooseone;
+    $zz = @main::db_errstr;
+    $zz = @main::default_column_list;
+    $zz = @main::dontchange;
+    $zz = @main::legal_bug_status;
+    $zz = @main::legal_components;
+    $zz = @main::legal_opsys;
+    $zz = @main::legal_platform;
+    $zz = @main::legal_priority;
+    $zz = @main::legal_product;
+    $zz = @main::legal_severity;
+    $zz = @main::legal_target_milestone;
+    $zz = @main::legal_versions;
+    $zz = @main::milestoneurl;
+    $zz = @main::prodmaxvotes;
+}
+
 use Mysql;
 
 use Date::Format;               # For time2str().