Fixed stupid perl warnings.

1 files changed, 23 insertions, 0 deletions

diff --git a/globals.pl b/globals.pl
index 2f915ca5f..c1da2e828 100644
--- 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().