This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Test-Simple to CPAN version 1.302181
authorTodd Rinaldo <toddr@cpan.org>
Thu, 8 Oct 2020 23:40:08 +0000 (18:40 -0500)
committerTodd Rinaldo <toddr@cpan.org>
Thu, 8 Oct 2020 23:41:32 +0000 (18:41 -0500)
[DELTA]

1.302182  2020-10-05 22:02:28-07:00 America/Los_Angeles

 - Fix 5.6 support
 - Fix fragile %INC handling in a test

72 files changed:
Porting/Maintainers.pl
cpan/Test-Simple/lib/Test/Builder.pm
cpan/Test-Simple/lib/Test/Builder/Formatter.pm
cpan/Test-Simple/lib/Test/Builder/Module.pm
cpan/Test-Simple/lib/Test/Builder/Tester.pm
cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm
cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm
cpan/Test-Simple/lib/Test/More.pm
cpan/Test-Simple/lib/Test/Simple.pm
cpan/Test-Simple/lib/Test/Tester.pm
cpan/Test-Simple/lib/Test/Tester/Capture.pm
cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
cpan/Test-Simple/lib/Test/Tester/Delegate.pm
cpan/Test-Simple/lib/Test/use/ok.pm
cpan/Test-Simple/lib/Test2.pm
cpan/Test-Simple/lib/Test2/API.pm
cpan/Test-Simple/lib/Test2/API/Breakage.pm
cpan/Test-Simple/lib/Test2/API/Context.pm
cpan/Test-Simple/lib/Test2/API/Instance.pm
cpan/Test-Simple/lib/Test2/API/InterceptResult.pm
cpan/Test-Simple/lib/Test2/API/InterceptResult/Event.pm
cpan/Test-Simple/lib/Test2/API/InterceptResult/Facet.pm
cpan/Test-Simple/lib/Test2/API/InterceptResult/Hub.pm
cpan/Test-Simple/lib/Test2/API/InterceptResult/Squasher.pm
cpan/Test-Simple/lib/Test2/API/Stack.pm
cpan/Test-Simple/lib/Test2/Event.pm
cpan/Test-Simple/lib/Test2/Event/Bail.pm
cpan/Test-Simple/lib/Test2/Event/Diag.pm
cpan/Test-Simple/lib/Test2/Event/Encoding.pm
cpan/Test-Simple/lib/Test2/Event/Exception.pm
cpan/Test-Simple/lib/Test2/Event/Fail.pm
cpan/Test-Simple/lib/Test2/Event/Generic.pm
cpan/Test-Simple/lib/Test2/Event/Note.pm
cpan/Test-Simple/lib/Test2/Event/Ok.pm
cpan/Test-Simple/lib/Test2/Event/Pass.pm
cpan/Test-Simple/lib/Test2/Event/Plan.pm
cpan/Test-Simple/lib/Test2/Event/Skip.pm
cpan/Test-Simple/lib/Test2/Event/Subtest.pm
cpan/Test-Simple/lib/Test2/Event/TAP/Version.pm
cpan/Test-Simple/lib/Test2/Event/V2.pm
cpan/Test-Simple/lib/Test2/Event/Waiting.pm
cpan/Test-Simple/lib/Test2/EventFacet.pm
cpan/Test-Simple/lib/Test2/EventFacet/About.pm
cpan/Test-Simple/lib/Test2/EventFacet/Amnesty.pm
cpan/Test-Simple/lib/Test2/EventFacet/Assert.pm
cpan/Test-Simple/lib/Test2/EventFacet/Control.pm
cpan/Test-Simple/lib/Test2/EventFacet/Error.pm
cpan/Test-Simple/lib/Test2/EventFacet/Hub.pm
cpan/Test-Simple/lib/Test2/EventFacet/Info.pm
cpan/Test-Simple/lib/Test2/EventFacet/Info/Table.pm
cpan/Test-Simple/lib/Test2/EventFacet/Meta.pm
cpan/Test-Simple/lib/Test2/EventFacet/Parent.pm
cpan/Test-Simple/lib/Test2/EventFacet/Plan.pm
cpan/Test-Simple/lib/Test2/EventFacet/Render.pm
cpan/Test-Simple/lib/Test2/EventFacet/Trace.pm
cpan/Test-Simple/lib/Test2/Formatter.pm
cpan/Test-Simple/lib/Test2/Formatter/TAP.pm
cpan/Test-Simple/lib/Test2/Hub.pm
cpan/Test-Simple/lib/Test2/Hub/Interceptor.pm
cpan/Test-Simple/lib/Test2/Hub/Interceptor/Terminator.pm
cpan/Test-Simple/lib/Test2/Hub/Subtest.pm
cpan/Test-Simple/lib/Test2/IPC.pm
cpan/Test-Simple/lib/Test2/IPC/Driver.pm
cpan/Test-Simple/lib/Test2/IPC/Driver/Files.pm
cpan/Test-Simple/lib/Test2/Tools/Tiny.pm
cpan/Test-Simple/lib/Test2/Util.pm
cpan/Test-Simple/lib/Test2/Util/ExternalMeta.pm
cpan/Test-Simple/lib/Test2/Util/Facets2Legacy.pm
cpan/Test-Simple/lib/Test2/Util/HashBase.pm
cpan/Test-Simple/lib/Test2/Util/Trace.pm
cpan/Test-Simple/lib/ok.pm
cpan/Test-Simple/t/Test2/modules/API/Breakage.t

index 1d68abf..4129548 100755 (executable)
@@ -1070,7 +1070,7 @@ use File::Glob qw(:case);
     },
 
     'Test::Simple' => {
-        'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302181.tar.gz',
+        'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302182.tar.gz',
         'FILES'        => q[cpan/Test-Simple],
         'EXCLUDED'     => [
             qr{^examples/},
index b719598..2d93888 100644 (file)
@@ -4,7 +4,7 @@ use 5.006;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN {
     if( $] < 5.008 ) {
index 12a5d03..3356f3b 100644 (file)
@@ -2,7 +2,7 @@ package Test::Builder::Formatter;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
 
index 882a93d..59adcce 100644 (file)
@@ -7,7 +7,7 @@ use Test::Builder;
 require Exporter;
 our @ISA = qw(Exporter);
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 =head1 NAME
index d34cf48..cda01c6 100644 (file)
@@ -1,7 +1,7 @@
 package Test::Builder::Tester;
 
 use strict;
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Test::Builder;
 use Symbol;
index c58c1f3..3f6694a 100644 (file)
@@ -1,7 +1,7 @@
 package Test::Builder::Tester::Color;
 
 use strict;
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 require Test::Builder::Tester;
 
index 4b36edd..127fddb 100644 (file)
@@ -2,7 +2,7 @@ package Test::Builder::TodoDiag;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
 
index 9487e98..4028930 100644 (file)
@@ -17,7 +17,7 @@ sub _carp {
     return warn @_, " at $file line $line\n";
 }
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Test::Builder::Module;
 our @ISA    = qw(Test::Builder::Module);
index c5d922b..30e811c 100644 (file)
@@ -4,7 +4,7 @@ use 5.006;
 
 use strict;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Test::Builder::Module;
 our @ISA    = qw(Test::Builder::Module);
index cfeddf3..c31a36f 100644 (file)
@@ -18,7 +18,7 @@ require Exporter;
 
 use vars qw( @ISA @EXPORT );
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 @EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
 @ISA = qw( Exporter );
index d49a6c9..8e15594 100644 (file)
@@ -2,7 +2,7 @@ use strict;
 
 package Test::Tester::Capture;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 use Test::Builder;
index 7e941f0..38ffb46 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 
 package Test::Tester::CaptureRunner;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 use Test::Tester::Capture;
index f90d84c..7ff59d6 100644 (file)
@@ -3,7 +3,7 @@ use warnings;
 
 package Test::Tester::Delegate;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Scalar::Util();
 
index 0415440..6758b34 100644 (file)
@@ -1,7 +1,7 @@
 package Test::use::ok;
 use 5.005;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 __END__
index 6afd64c..68f7622 100644 (file)
@@ -2,7 +2,7 @@ package Test2;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 1;
index f0ddca8..30d30fd 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
     $ENV{TEST2_ACTIVE} = 1;
 }
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 my $INST;
index 55471bb..9cb3e93 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Breakage;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 use Test2::Util qw/pkg_to_file/;
index ff438a6..c79f4d6 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Context;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 use Carp qw/confess croak/;
index 988f83d..1f7593f 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Instance;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/;
 use Carp qw/confess carp/;
index c22e877..fdf8662 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Scalar::Util qw/blessed/;
 use Test2::Util  qw/pkg_to_file/;
index 4e80820..c0db58e 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Event;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use List::Util   qw/first/;
 use Test2::Util  qw/pkg_to_file/;
index 5964037..e1877bf 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Facet;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN {
     require Test2::EventFacet;
index a703096..15b2afc 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Hub;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
 use Test2::Util::HashBase;
index c4de89c..facf16c 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Squasher;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Carp qw/croak/;
 use List::Util qw/first/;
@@ -29,7 +29,7 @@ sub can_squash {
     return unless $event->has_info;
 
     # Do not merge up if one of these is true
-    return if first { $event->$_ } qw/causes_fail has_assert has_bailout has_errors has_plan has_subtest/;
+    return if first { $event->$_ } 'causes_fail', 'has_assert', 'has_bailout', 'has_errors', 'has_plan', 'has_subtest';
 
     # Signature if we can squash
     return $event->trace_signature;
index 272a027..2d5d1f0 100644 (file)
@@ -2,7 +2,7 @@ package Test2::API::Stack;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 use Test2::Hub();
index e84fd06..afd876c 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Scalar::Util qw/blessed reftype/;
 use Carp qw/croak/;
index f6c0135..eef1f56 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Bail;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 43f26f2..f696c90 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Diag;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 1be7d12..917142d 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Encoding;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Carp qw/croak/;
 
index 93ec0d0..b890fc2 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Exception;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 1b80ec4..af09cbf 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Fail;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Test2::EventFacet::Info;
 
index b7c124b..ce8c148 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 use Carp qw/croak/;
 use Scalar::Util qw/reftype/;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
 use Test2::Util::HashBase;
index f15f144..cfa0e27 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Note;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 61d5a0a..9b3c43b 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Ok;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index a01ebd9..f43f0d1 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Pass;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Test2::EventFacet::Info;
 
index 3cdd104..7b1531d 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Plan;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 3452490..ebc5ff1 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Skip;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
index c95c516..ac5ca0a 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Subtest;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
 use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid};
index d8679d9..d283a07 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::TAP::Version;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Carp qw/croak/;
 
index c621625..913a72c 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::V2;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Scalar::Util qw/reftype/;
 use Carp qw/croak/;
index ce28a85..d2d4467 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Event::Waiting;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
index 84910af..a1c25b2 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Test2::Util::HashBase qw/-details/;
 use Carp qw/croak/;
index 1d99b54..92406db 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::About;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use Test2::Util::HashBase qw{ -package -no_display -uuid -eid };
index ef84ab4..c6a398e 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Amnesty;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 sub is_list { 1 }
 
index 62611b6..f3f5a93 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Assert;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use Test2::Util::HashBase qw{ -pass -no_debug -number };
index eb083d9..6775c17 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Control;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use Test2::Util::HashBase qw{ -global -terminate -halt -has_callback -encoding -phase };
index 0e47cf2..16cfa42 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Error;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 sub facet_key { 'errors' }
 sub is_list { 1 }
index 572c048..a1bb14d 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Hub;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 sub is_list { 1 }
 sub facet_key { 'hubs' }
index b474596..1f877f1 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Info;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 sub is_list { 1 }
 
index 2326b66..750a834 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Info::Table;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Carp qw/confess/;
 
index af065ca..88de563 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Meta;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use vars qw/$AUTOLOAD/;
index 35dda12..4f440c0 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Parent;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Carp qw/confess/;
 
index 45f96c9..91ed3f6 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Plan;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 use Test2::Util::HashBase qw{ -count -skip -none };
index 4afb364..a04cc59 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Render;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 sub is_list { 1 }
 
index 3fa9346..87e452b 100644 (file)
@@ -2,7 +2,7 @@ package Test2::EventFacet::Trace;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::EventFacet; our @ISA = qw(Test2::EventFacet) }
 
index cc4bf93..bec33fe 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Formatter;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 my %ADDED;
index 99fccb8..8dc2cc9 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Formatter::TAP;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Test2::Util qw/clone_io/;
 
index efa521b..8b8f1a9 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Hub;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 use Carp qw/carp croak confess/;
index 2358a0b..f8c03af 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Hub::Interceptor;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 use Test2::Hub::Interceptor::Terminator();
index e89796f..a360c34 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Hub::Interceptor::Terminator;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 1;
index 73dbfd6..e2aaa87 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Hub::Subtest;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
 use Test2::Util::HashBase qw/nested exit_code manual_skip_all/;
index 9ddd33c..20c3163 100644 (file)
@@ -2,7 +2,7 @@ package Test2::IPC;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 use Test2::API::Instance;
index 2ca2fa8..19d2410 100644 (file)
@@ -2,7 +2,7 @@ package Test2::IPC::Driver;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 use Carp qw/confess/;
index 421b9c1..de1c3f2 100644 (file)
@@ -2,7 +2,7 @@ package Test2::IPC::Driver::Files;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) }
 
index 59f6eef..1c7fef6 100644 (file)
@@ -16,7 +16,7 @@ use Test2::API qw/context run_subtest test2_stack/;
 use Test2::Hub::Interceptor();
 use Test2::Hub::Interceptor::Terminator();
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 BEGIN { require Exporter; our @ISA = qw(Exporter) }
 our @EXPORT = qw{
index 4b297c7..5f68389 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use POSIX();
 use Config qw/%Config/;
index 45f6ca6..8504d30 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util::ExternalMeta;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 
 use Carp qw/croak/;
index 2afaea7..35fcace 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util::Facets2Legacy;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use Carp qw/croak confess/;
 use Scalar::Util qw/blessed/;
index 9047698..94a6725 100644 (file)
@@ -2,7 +2,7 @@ package Test2::Util::HashBase;
 use strict;
 use warnings;
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 #################################################################
 #                                                               #
index b61c23b..b1b4e52 100644 (file)
@@ -6,7 +6,7 @@ use strict;
 
 our @ISA = ('Test2::EventFacet::Trace');
 
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 1;
 
index 99b32e0..a881343 100644 (file)
@@ -1,5 +1,5 @@
 package ok;
-our $VERSION = '1.302181';
+our $VERSION = '1.302182';
 
 use strict;
 use Test::More ();
index 26d01b8..652bc92 100644 (file)
@@ -1,6 +1,11 @@
 use strict;
 use warnings;
 
+if ($] lt "5.008") {
+    print "1..0 # SKIP Test cannot run on perls below 5.8.0 because local doesn't work on hash keys.\n";
+    exit 0;
+}
+
 use Test2::IPC;
 use Test2::Tools::Tiny;
 use Test2::API::Breakage;
@@ -31,15 +36,13 @@ for my $meth (qw/upgrade_suggested upgrade_required known_broken/) {
     ok(!$CLASS->report(1), "Still nothing to report");
 
     {
-        local %INC = (
-            %INC,
-            'T2Test/UG1.pm' => 'T2Test/UG1.pm',
-            'T2Test/UG2.pm' => 'T2Test/UG2.pm',
-            'T2Test/UR1.pm' => 'T2Test/UR1.pm',
-            'T2Test/UR2.pm' => 'T2Test/UR2.pm',
-            'T2Test/KB1.pm' => 'T2Test/KB1.pm',
-            'T2Test/KB2.pm' => 'T2Test/KB2.pm',
-        );
+        local $INC{"T2Test/UG1.pm"} = "T2Test/UG1.pm";
+        local $INC{"T2Test/UG2.pm"} = "T2Test/UG2.pm";
+        local $INC{"T2Test/UR1.pm"} = "T2Test/UR1.pm";
+        local $INC{"T2Test/UR2.pm"} = "T2Test/UR2.pm";
+        local $INC{"T2Test/KB1.pm"} = "T2Test/KB1.pm";
+        local $INC{"T2Test/KB2.pm"} = "T2Test/KB2.pm";
+
         local $T2Test::UG1::VERSION = '0.9';
         local $T2Test::UG2::VERSION = '0.9';
         local $T2Test::UR1::VERSION = '0.9';