@@ -1,6 +1,10 @@ package CGI::Fast; use strict; -$^W=1; # A way to say "use warnings" that's compatible with even older perls. + +# A way to say "use warnings" that's compatible with even older perls. +# making it local will not affect the code that loads this module +# and since we're not in a BLOCK, warnings are enabled until the EOF +local $^W = 1; # See the bottom of this file for the POD documentation. Search for the # string '=head'. lib/CGI/Fast.pm 615c380b8da92f2ce05f425233723f428ee6d61d burak burak@cpan.org http://github.com/burak/CGI.pm/commit/0d1328b2f3f09ccaf5a7e384b3b5203313f54d0f 0d1328b2f3f09ccaf5a7e384b3b5203313f54d0f 2009-10-13T16:21:53-07:00 2009-10-13T16:21:53-07:00 Resolve RT#50301 by localizing $^W 8b802137e4d7c9fa7cfa48066f25d486e759f851 unknown burak@cpan.org