This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The CPAN release will include Test::More to be used on old Perls
authorAbhijit Menon-Sen <ams@toroid.org>
Fri, 10 Dec 2010 16:13:32 +0000 (21:43 +0530)
committerAbhijit Menon-Sen <ams@toroid.org>
Fri, 10 Dec 2010 16:13:32 +0000 (21:43 +0530)
30 files changed:
dist/Storable/t/attach_errors.t
dist/Storable/t/attach_singleton.t
dist/Storable/t/blessed.t
dist/Storable/t/canonical.t
dist/Storable/t/circular_hook.t
dist/Storable/t/code.t
dist/Storable/t/compat01.t
dist/Storable/t/compat06.t
dist/Storable/t/dclone.t
dist/Storable/t/downgrade.t
dist/Storable/t/file_magic.t
dist/Storable/t/forgive.t
dist/Storable/t/freeze.t
dist/Storable/t/integer.t
dist/Storable/t/interwork56.t
dist/Storable/t/just_plain_nasty.t
dist/Storable/t/lock.t
dist/Storable/t/malice.t
dist/Storable/t/overload.t
dist/Storable/t/recurse.t
dist/Storable/t/restrict.t
dist/Storable/t/retrieve.t
dist/Storable/t/sig_die.t
dist/Storable/t/store.t
dist/Storable/t/threads.t
dist/Storable/t/tied.t
dist/Storable/t/tied_hook.t
dist/Storable/t/tied_items.t
dist/Storable/t/utf8.t
dist/Storable/t/weak.t

index ffa41f9..67ad422 100644 (file)
@@ -14,6 +14,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index e850a16..7b14032 100644 (file)
@@ -11,6 +11,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 9bc9512..6657e3c 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 034ac08..243ffa5 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 48f4be4..7dca119 100644 (file)
@@ -14,6 +14,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 33b52b9..687a6d1 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index f234916..2827676 100644 (file)
@@ -2,6 +2,7 @@
 
 BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 758a500..f8446ee 100644 (file)
@@ -8,6 +8,7 @@
 
 BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 74d1b5c..1e852a3 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 76bd05a..8520c59 100644 (file)
@@ -14,6 +14,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index f834510..5dc032d 100644 (file)
@@ -1,5 +1,9 @@
 #!perl -w
 
+BEGIN {
+    unshift @INC, 't/compat' if $] < 5.006002;
+};
+
 use strict;
 use Test::More;
 use Storable qw(store nstore);
index d65f3bc..c994211 100644 (file)
@@ -11,6 +11,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index bc3babc..a02f836 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 8eebf78..b17f392 100644 (file)
@@ -14,6 +14,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 4e9b414..fac8af9 100644 (file)
@@ -14,6 +14,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 28fa7e0..818c439 100644 (file)
@@ -7,6 +7,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 3183243..af9a9ff 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index f656398..95f6e26 100644 (file)
@@ -16,6 +16,7 @@
 sub BEGIN {
     # This lets us distribute Test::More in t/
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index e3e4837..2a14710 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index bc34d73..930a224 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 20e8165..d2b1836 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     if ($ENV{PERL_CORE}){
         require Config;
         if ($Config::Config{'extensions'} !~ /\bStorable\b/) {
index c41eb80..fd8335d 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 70599c4..3ea2df4 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 61bcf7d..9ca1f63 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 72efdda..0bc2486 100644 (file)
@@ -18,6 +18,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 48eedab..7e2adb0 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index 816e98a..05b2b0f 100644 (file)
@@ -8,6 +8,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index ca43d46..d54437c 100644 (file)
@@ -12,6 +12,7 @@
 
 sub BEGIN {
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index e4a6299..284a44a 100644 (file)
@@ -12,6 +12,7 @@ sub BEGIN {
        exit 0;
     }
     unshift @INC, 't';
+    unshift @INC, 't/compat' if $] < 5.006002;
     require Config; import Config;
     if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
         print "1..0 # Skip: Storable was not built\n";
index a2be7a1..0a06b0d 100644 (file)
@@ -9,6 +9,7 @@
 sub BEGIN {
   # This lets us distribute Test::More in t/
   unshift @INC, 't';
+  unshift @INC, 't/compat' if $] < 5.006002;
   require Config; import Config;
   if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
     print "1..0 # Skip: Storable was not built\n";