Fixed stupid perl warning.

1 files changed, 1 insertions, 1 deletions

diff --git a/CGI.pl b/CGI.pl
index 76adcc702..30d621c73 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -26,7 +26,7 @@ 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 {
+sub CGI_pl_sillyness {
     my $zz;
     $zz = %::FILENAME;
 }