Don't load strict.pm (and workarounds like vars.pm) in production.
authorSean O'Rourke <seano@cpan.org>
Fri, 4 May 2012 11:07:38 +0000 (4 05:07 -0600)
committerSean O'Rourke <seano@cpan.org>
Fri, 4 May 2012 11:07:38 +0000 (4 05:07 -0600)
Makefile.PL
lib/Sepia.pm
lib/Sepia/Debug.pm
lib/Sepia/Xref.pm

index a7dfddd..c56e6db 100644 (file)
@@ -1,5 +1,6 @@
-use warnings;
-use strict;
+# uncomment for development
+# use warnings;
+# use strict;
 
 use Pod::Usage;
 use Getopt::Long;
index 3285622..082fd88 100644 (file)
@@ -50,8 +50,6 @@ BEGIN {
     BEGIN { sub TRACK_REQUIRES () { $ENV{TRACK_REQUIRES}||0 } };
     unshift @INC, \&Sepia::track_requires if TRACK_REQUIRES;
 }
-# uncomment for development:
-# use strict;
 use B;
 use Sepia::Debug;               # THIS TURNS ON DEBUGGING INFORMATION!
 use Cwd 'abs_path';
@@ -60,11 +58,13 @@ use Text::Abbrev;
 use File::Find;
 use Storable qw(store retrieve);
 
-use vars qw($PS1 %REPL %RK %REPL_DOC %REPL_SHORT %PRINTER
-            @res $REPL_LEVEL $REPL_QUIT $PACKAGE $SIGGED
-            $WANTARRAY $PRINTER $STRICT $COLUMNATE $ISEVAL $STRINGIFY
-            $LAST_INPUT $READLINE @PRE_EVAL @POST_EVAL @PRE_PROMPT
-            %REQUIRED_BY %REQUIRES);
+# uncomment for development:
+# use strict;
+# use vars qw($PS1 %REPL %RK %REPL_DOC %REPL_SHORT %PRINTER
+#             @res $REPL_LEVEL $REPL_QUIT $PACKAGE $SIGGED
+#             $WANTARRAY $PRINTER $STRICT $COLUMNATE $ISEVAL $STRINGIFY
+#             $LAST_INPUT $READLINE @PRE_EVAL @POST_EVAL @PRE_PROMPT
+#             %REQUIRED_BY %REQUIRES);
 
 BEGIN {
     eval q{ use List::Util 'max' };
index 7799229..c77416c 100644 (file)
@@ -2,10 +2,11 @@ package Sepia::Debug;
 # use Sepia;
 use Carp ();                    # old Carp doesn't export shortmess.
 use Text::Abbrev;
-use strict;
-use vars qw($pack $file $line $sub $level
-            $STOPDIE $STOPWARN);
-
+# uncomment for development
+# use strict;
+# use vars qw($pack $file $line $sub $level
+#             $STOPDIE $STOPWARN
+#             $DIE_TO @DIE_RETURN $DIE_LEVEL);
 sub define_shortcut;
 *define_shortcut = *Sepia::define_shortcut;
 
@@ -65,7 +66,6 @@ sub repl_return
     last repl;
 }
 
-use vars qw($DIE_TO @DIE_RETURN $DIE_LEVEL);
 $DIE_LEVEL = 0;
 
 sub xreturn
index f78fd9b..9cbce5f 100644 (file)
@@ -1,3 +1,4 @@
+#!/usr/bin/env perl
 package Sepia::Xref;
 
 =head1 NAME
@@ -33,7 +34,8 @@ most of its code.
 require Sepia;
 BEGIN { *_apropos_re = *Sepia::_apropos_re; }
 
-use strict;
+# uncomment for development
+# use strict;
 use Config;
 use Cwd 'abs_path';
 use B qw(peekop class comppadlist main_start svref_2object walksymtable