Fixed stupid perl warnings.

1 files changed, 8 insertions, 0 deletions

diff --git a/CGI.pl b/CGI.pl
index 2b1371685..76adcc702 100644
--- 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';