From 999385fab5cd9004a4571cdbb8e56b2a695e90ad Mon Sep 17 00:00:00 2001
From: Sean O'Rourke <seano@cpan.org>
Date: Fri, 4 May 2012 05:07:38 -0600
Subject: [PATCH] Don't load strict.pm (and workarounds like vars.pm) in
 production.

---
 Makefile.PL        |  5 +++--
 lib/Sepia.pm       | 14 +++++++-------
 lib/Sepia/Debug.pm | 10 +++++-----
 lib/Sepia/Xref.pm  |  4 +++-
 4 files changed, 18 insertions(+), 15 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index a7dfddd..c56e6db 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,5 +1,6 @@
-use warnings;
-use strict;
+# uncomment for development
+# use warnings;
+# use strict;
 
 use Pod::Usage;
 use Getopt::Long;
diff --git a/lib/Sepia.pm b/lib/Sepia.pm
index 3285622..082fd88 100644
--- a/lib/Sepia.pm
+++ b/lib/Sepia.pm
@@ -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' };
diff --git a/lib/Sepia/Debug.pm b/lib/Sepia/Debug.pm
index 7799229..c77416c 100644
--- a/lib/Sepia/Debug.pm
+++ b/lib/Sepia/Debug.pm
@@ -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
diff --git a/lib/Sepia/Xref.pm b/lib/Sepia/Xref.pm
index f78fd9b..9cbce5f 100644
--- a/lib/Sepia/Xref.pm
+++ b/lib/Sepia/Xref.pm
@@ -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
-- 
2.11.4.GIT