In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/1afdebce433dba1c67962359f597d3ed45df2192?hp=99295a74acbaed9abbb00fcababc24c32ae885e6>
- Log ----------------------------------------------------------------- commit 1afdebce433dba1c67962359f597d3ed45df2192 Author: Abhijit Menon-Sen <[email protected]> Date: Fri Dec 10 21:43:32 2010 +0530 The CPAN release will include Test::More to be used on old Perls ----------------------------------------------------------------------- Summary of changes: dist/Storable/t/attach_errors.t | 1 + dist/Storable/t/attach_singleton.t | 1 + dist/Storable/t/blessed.t | 1 + dist/Storable/t/canonical.t | 1 + dist/Storable/t/circular_hook.t | 1 + dist/Storable/t/code.t | 1 + dist/Storable/t/compat01.t | 1 + dist/Storable/t/compat06.t | 1 + dist/Storable/t/dclone.t | 1 + dist/Storable/t/downgrade.t | 1 + dist/Storable/t/file_magic.t | 4 ++++ dist/Storable/t/forgive.t | 1 + dist/Storable/t/freeze.t | 1 + dist/Storable/t/integer.t | 1 + dist/Storable/t/interwork56.t | 1 + dist/Storable/t/just_plain_nasty.t | 1 + dist/Storable/t/lock.t | 1 + dist/Storable/t/malice.t | 1 + dist/Storable/t/overload.t | 1 + dist/Storable/t/recurse.t | 1 + dist/Storable/t/restrict.t | 1 + dist/Storable/t/retrieve.t | 1 + dist/Storable/t/sig_die.t | 1 + dist/Storable/t/store.t | 1 + dist/Storable/t/threads.t | 1 + dist/Storable/t/tied.t | 1 + dist/Storable/t/tied_hook.t | 1 + dist/Storable/t/tied_items.t | 1 + dist/Storable/t/utf8.t | 1 + dist/Storable/t/weak.t | 1 + 30 files changed, 33 insertions(+), 0 deletions(-) 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"; -- Perl5 Master Repository
