diff options
| author | Abhijit Menon-Sen <ams@toroid.org> | 2010-12-10 21:43:32 +0530 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@toroid.org> | 2010-12-10 21:43:32 +0530 |
| commit | 1afdebce433dba1c67962359f597d3ed45df2192 (patch) | |
| tree | 5dccec57bfc1ce162512612fd1ab99188f9e1f05 /dist | |
| parent | 99295a74acbaed9abbb00fcababc24c32ae885e6 (diff) | |
| download | perl-1afdebce433dba1c67962359f597d3ed45df2192.tar.gz | |
The CPAN release will include Test::More to be used on old Perls
Diffstat (limited to 'dist')
30 files changed, 33 insertions, 0 deletions
diff --git a/dist/Storable/t/attach_errors.t b/dist/Storable/t/attach_errors.t index ffa41f9138..67ad422d73 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 e850a16f9c..7b140322be 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 9bc95126cb..6657e3c424 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 034ac08ca8..243ffa5b4b 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 48f4be403d..7dca1192ab 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 33b52b9e28..687a6d1e44 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 f2349169b2..2827676421 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 758a500b48..f8446eefa0 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 74d1b5c38b..1e852a3ca5 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 76bd05ae2a..8520c59784 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 f834510287..5dc032dc33 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 d65f3bc4ee..c99421149c 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 bc3babcdb2..a02f836c2a 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 8eebf78117..b17f3928c0 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 4e9b414e54..fac8af9c5d 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 28fa7e0978..818c4397f2 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 31832433f6..af9a9ff49f 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 f656398ada..95f6e26ffd 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 e3e4837959..2a14710dd1 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 bc34d73d66..930a2242eb 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 20e81655cb..d2b1836dd0 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 c41eb80678..fd8335d107 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 70599c4949..3ea2df4f0d 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 61bcf7d49b..9ca1f63724 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 72efdda334..0bc2486991 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 48eedab3ac..7e2adb0524 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 816e98a39d..05b2b0fa3e 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 ca43d4635d..d54437cff0 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 e4a62994d1..284a44a31f 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 a2be7a10b0..0a06b0dcf6 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"; |