be compatible with perl 5.6
Graham Knop [Mon, 4 Nov 2013 21:37:21 +0000 (16:37 -0500)]
lib/local/lib.pm
t/subroutine-in-inc.t

index 34e5806..a634a24 100644 (file)
@@ -3,8 +3,7 @@ use warnings;
 
 package local::lib;
 
-use 5.008001; # probably works with earlier versions but I'm not supporting them
-              # (patches would, of course, be welcome)
+use 5.006;
 
 use File::Spec ();
 use File::Path ();
index d3b4bd3..6d0480f 100644 (file)
@@ -16,9 +16,9 @@ my $dir;
 
 BEGIN {
     $base = CODE_in_INC;
-    unshift @INC, sub { };
-    splice @INC, 3, 1, sub { };
-    push @INC, sub { };
+    unshift @INC, sub { () };
+    splice @INC, 3, 1, sub { () };
+    push @INC, sub { () };
 
     $dir = tempdir( DIR => Cwd::abs_path('t'), CLEANUP => 1 );
 }