From 003f86fb1f9c7f77f65b851a2ff57617bd9bf277 Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Tue, 19 Oct 1999 06:57:56 +0000
Subject: Fixed stupid perl warnings.

---
 bug_form.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'bug_form.pl')

diff --git a/bug_form.pl b/bug_form.pl
index 665d82f62..f1441f54d 100644
--- 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;
 
-- 
cgit v1.2.3-24-g4f1b