From: Abhijit Menon-Sen <ams@toroid.org>
Date: Fri, 10 Dec 2010 16:13:32 +0000 (+0530)
Subject: The CPAN release will include Test::More to be used on old Perls
X-Git-Tag: accepted/trunk/20130322.191538~6558
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1afdebce433dba1c67962359f597d3ed45df2192;p=platform%2Fupstream%2Fperl.git

The CPAN release will include Test::More to be used on old Perls
---

diff --git a/dist/Storable/t/attach_errors.t b/dist/Storable/t/attach_errors.t
index ffa41f9..67ad422 100644
--- a/dist/Storable/t/attach_errors.t
+++ b/dist/Storable/t/attach_errors.t
@@ -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";
diff --git a/dist/Storable/t/attach_singleton.t b/dist/Storable/t/attach_singleton.t
index e850a16..7b14032 100644
--- a/dist/Storable/t/attach_singleton.t
+++ b/dist/Storable/t/attach_singleton.t
@@ -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";
diff --git a/dist/Storable/t/blessed.t b/dist/Storable/t/blessed.t
index 9bc9512..6657e3c 100644
--- a/dist/Storable/t/blessed.t
+++ b/dist/Storable/t/blessed.t
@@ -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";
diff --git a/dist/Storable/t/canonical.t b/dist/Storable/t/canonical.t
index 034ac08..243ffa5 100644
--- a/dist/Storable/t/canonical.t
+++ b/dist/Storable/t/canonical.t
@@ -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";
diff --git a/dist/Storable/t/circular_hook.t b/dist/Storable/t/circular_hook.t
index 48f4be4..7dca119 100644
--- a/dist/Storable/t/circular_hook.t
+++ b/dist/Storable/t/circular_hook.t
@@ -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";
diff --git a/dist/Storable/t/code.t b/dist/Storable/t/code.t
index 33b52b9..687a6d1 100644
--- a/dist/Storable/t/code.t
+++ b/dist/Storable/t/code.t
@@ -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";
diff --git a/dist/Storable/t/compat01.t b/dist/Storable/t/compat01.t
index f234916..2827676 100644
--- a/dist/Storable/t/compat01.t
+++ b/dist/Storable/t/compat01.t
@@ -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";
diff --git a/dist/Storable/t/compat06.t b/dist/Storable/t/compat06.t
index 758a500..f8446ee 100644
--- a/dist/Storable/t/compat06.t
+++ b/dist/Storable/t/compat06.t
@@ -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";
diff --git a/dist/Storable/t/dclone.t b/dist/Storable/t/dclone.t
index 74d1b5c..1e852a3 100644
--- a/dist/Storable/t/dclone.t
+++ b/dist/Storable/t/dclone.t
@@ -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";
diff --git a/dist/Storable/t/downgrade.t b/dist/Storable/t/downgrade.t
index 76bd05a..8520c59 100644
--- a/dist/Storable/t/downgrade.t
+++ b/dist/Storable/t/downgrade.t
@@ -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";
diff --git a/dist/Storable/t/file_magic.t b/dist/Storable/t/file_magic.t
index f834510..5dc032d 100644
--- a/dist/Storable/t/file_magic.t
+++ b/dist/Storable/t/file_magic.t
@@ -1,5 +1,9 @@
 #!perl -w
 
+BEGIN {
+    unshift @INC, 't/compat' if $] < 5.006002;
+};
+
 use strict;
 use Test::More;
 use Storable qw(store nstore);
diff --git a/dist/Storable/t/forgive.t b/dist/Storable/t/forgive.t
index d65f3bc..c994211 100644
--- a/dist/Storable/t/forgive.t
+++ b/dist/Storable/t/forgive.t
@@ -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";
diff --git a/dist/Storable/t/freeze.t b/dist/Storable/t/freeze.t
index bc3babc..a02f836 100644
--- a/dist/Storable/t/freeze.t
+++ b/dist/Storable/t/freeze.t
@@ -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";
diff --git a/dist/Storable/t/integer.t b/dist/Storable/t/integer.t
index 8eebf78..b17f392 100644
--- a/dist/Storable/t/integer.t
+++ b/dist/Storable/t/integer.t
@@ -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";
diff --git a/dist/Storable/t/interwork56.t b/dist/Storable/t/interwork56.t
index 4e9b414..fac8af9 100644
--- a/dist/Storable/t/interwork56.t
+++ b/dist/Storable/t/interwork56.t
@@ -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";
diff --git a/dist/Storable/t/just_plain_nasty.t b/dist/Storable/t/just_plain_nasty.t
index 28fa7e0..818c439 100644
--- a/dist/Storable/t/just_plain_nasty.t
+++ b/dist/Storable/t/just_plain_nasty.t
@@ -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";
diff --git a/dist/Storable/t/lock.t b/dist/Storable/t/lock.t
index 3183243..af9a9ff 100644
--- a/dist/Storable/t/lock.t
+++ b/dist/Storable/t/lock.t
@@ -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";
diff --git a/dist/Storable/t/malice.t b/dist/Storable/t/malice.t
index f656398..95f6e26 100644
--- a/dist/Storable/t/malice.t
+++ b/dist/Storable/t/malice.t
@@ -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";
diff --git a/dist/Storable/t/overload.t b/dist/Storable/t/overload.t
index e3e4837..2a14710 100644
--- a/dist/Storable/t/overload.t
+++ b/dist/Storable/t/overload.t
@@ -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";
diff --git a/dist/Storable/t/recurse.t b/dist/Storable/t/recurse.t
index bc34d73..930a224 100644
--- a/dist/Storable/t/recurse.t
+++ b/dist/Storable/t/recurse.t
@@ -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";
diff --git a/dist/Storable/t/restrict.t b/dist/Storable/t/restrict.t
index 20e8165..d2b1836 100644
--- a/dist/Storable/t/restrict.t
+++ b/dist/Storable/t/restrict.t
@@ -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/) {
diff --git a/dist/Storable/t/retrieve.t b/dist/Storable/t/retrieve.t
index c41eb80..fd8335d 100644
--- a/dist/Storable/t/retrieve.t
+++ b/dist/Storable/t/retrieve.t
@@ -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";
diff --git a/dist/Storable/t/sig_die.t b/dist/Storable/t/sig_die.t
index 70599c4..3ea2df4 100644
--- a/dist/Storable/t/sig_die.t
+++ b/dist/Storable/t/sig_die.t
@@ -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";
diff --git a/dist/Storable/t/store.t b/dist/Storable/t/store.t
index 61bcf7d..9ca1f63 100644
--- a/dist/Storable/t/store.t
+++ b/dist/Storable/t/store.t
@@ -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";
diff --git a/dist/Storable/t/threads.t b/dist/Storable/t/threads.t
index 72efdda..0bc2486 100644
--- a/dist/Storable/t/threads.t
+++ b/dist/Storable/t/threads.t
@@ -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";
diff --git a/dist/Storable/t/tied.t b/dist/Storable/t/tied.t
index 48eedab..7e2adb0 100644
--- a/dist/Storable/t/tied.t
+++ b/dist/Storable/t/tied.t
@@ -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";
diff --git a/dist/Storable/t/tied_hook.t b/dist/Storable/t/tied_hook.t
index 816e98a..05b2b0f 100644
--- a/dist/Storable/t/tied_hook.t
+++ b/dist/Storable/t/tied_hook.t
@@ -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";
diff --git a/dist/Storable/t/tied_items.t b/dist/Storable/t/tied_items.t
index ca43d46..d54437c 100644
--- a/dist/Storable/t/tied_items.t
+++ b/dist/Storable/t/tied_items.t
@@ -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";
diff --git a/dist/Storable/t/utf8.t b/dist/Storable/t/utf8.t
index e4a6299..284a44a 100644
--- a/dist/Storable/t/utf8.t
+++ b/dist/Storable/t/utf8.t
@@ -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";
diff --git a/dist/Storable/t/weak.t b/dist/Storable/t/weak.t
index a2be7a1..0a06b0d 100644
--- a/dist/Storable/t/weak.t
+++ b/dist/Storable/t/weak.t
@@ -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";