Skip to content

Commit

Permalink
Update Test-Simple to CPAN version 1.302183
Browse files Browse the repository at this point in the history
  [DELTA]

1.302183  2020-10-21 20:10:36-07:00 America/Los_Angeles

    - avoid closing over scalar in BEGIN block in cmp_ok eval
  • Loading branch information
bingos committed Nov 14, 2020
1 parent 4c032c4 commit 2cd1632
Show file tree
Hide file tree
Showing 73 changed files with 96 additions and 72 deletions.
1 change: 1 addition & 0 deletions MANIFEST
Original file line number Diff line number Diff line change
Expand Up @@ -2396,6 +2396,7 @@ cpan/Test-Simple/t/Legacy/Regression/6_cmp_ok.t
cpan/Test-Simple/t/Legacy/Regression/736_use_ok.t
cpan/Test-Simple/t/Legacy/Regression/789-read-only.t
cpan/Test-Simple/t/Legacy/Regression/870-experimental-warnings.t
cpan/Test-Simple/t/Legacy/Regression/is_capture.t
cpan/Test-Simple/t/Legacy/require_ok.t
cpan/Test-Simple/t/Legacy/run_test.t
cpan/Test-Simple/t/Legacy/simple.t
Expand Down
2 changes: 1 addition & 1 deletion Porting/Maintainers.pl
Original file line number Diff line number Diff line change
Expand Up @@ -1078,7 +1078,7 @@ package Maintainers;
},

'Test::Simple' => {
'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302182.tar.gz',
'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302183.tar.gz',
'FILES' => q[cpan/Test-Simple],
'EXCLUDED' => [
qr{^examples/},
Expand Down
7 changes: 5 additions & 2 deletions cpan/Test-Simple/lib/Test/Builder.pm
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@ use 5.006;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

BEGIN {
if( $] < 5.008 ) {
Expand Down Expand Up @@ -963,10 +963,13 @@ sub cmp_ok {

my($pack, $file, $line) = $ctx->trace->call();
my $warning_bits = $ctx->trace->warning_bits;
# convert this to a code string so the BEGIN doesn't have to close
# over it, which can lead to issues with Devel::Cover
my $bits_code = defined $warning_bits ? qq["\Q$warning_bits\E"] : 'undef';

# This is so that warnings come out at the caller's level
$succ = eval qq[
BEGIN {\${^WARNING_BITS} = \$warning_bits};
BEGIN {\${^WARNING_BITS} = $bits_code};
#line $line "(eval in cmp_ok) $file"
\$test = (\$got $type \$expect);
1;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/Builder/Formatter.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test::Builder::Formatter;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }

Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/Builder/Module.pm
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@ use Test::Builder;
require Exporter;
our @ISA = qw(Exporter);

our $VERSION = '1.302182';
our $VERSION = '1.302183';


=head1 NAME
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/Builder/Tester.pm
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
package Test::Builder::Tester;

use strict;
our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Test::Builder;
use Symbol;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
package Test::Builder::Tester::Color;

use strict;
our $VERSION = '1.302182';
our $VERSION = '1.302183';

require Test::Builder::Tester;

Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test::Builder::TodoDiag;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }

Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/More.pm
Original file line number Diff line number Diff line change
Expand Up @@ -17,7 +17,7 @@ sub _carp {
return warn @_, " at $file line $line\n";
}

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/Simple.pm
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@ use 5.006;

use strict;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Test::Builder::Module;
our @ISA = qw(Test::Builder::Module);
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/Tester.pm
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@ require Exporter;

use vars qw( @ISA @EXPORT );

our $VERSION = '1.302182';
our $VERSION = '1.302183';

@EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
@ISA = qw( Exporter );
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/Tester/Capture.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ use strict;

package Test::Tester::Capture;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


use Test::Builder;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@ use strict;

package Test::Tester::CaptureRunner;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


use Test::Tester::Capture;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/Tester/Delegate.pm
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@ use warnings;

package Test::Tester::Delegate;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Scalar::Util();

Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test/use/ok.pm
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
package Test::use::ok;
use 5.005;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


__END__
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


1;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/API.pm
Original file line number Diff line number Diff line change
Expand Up @@ -9,7 +9,7 @@ BEGIN {
$ENV{TEST2_ACTIVE} = 1;
}

our $VERSION = '1.302182';
our $VERSION = '1.302183';


my $INST;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/API/Breakage.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::API::Breakage;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


use Test2::Util qw/pkg_to_file/;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/API/Context.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::API::Context;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


use Carp qw/confess croak/;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/API/Instance.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::API::Instance;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/;
use Carp qw/confess carp/;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/API/InterceptResult.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::API::InterceptResult;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Scalar::Util qw/blessed/;
use Test2::Util qw/pkg_to_file/;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/API/InterceptResult/Event.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Event;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use List::Util qw/first/;
use Test2::Util qw/pkg_to_file/;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/API/InterceptResult/Facet.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Facet;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

BEGIN {
require Test2::EventFacet;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/API/InterceptResult/Hub.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Hub;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
use Test2::Util::HashBase;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/API/InterceptResult/Squasher.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Squasher;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Carp qw/croak/;
use List::Util qw/first/;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/API/Stack.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::API::Stack;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


use Test2::Hub();
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Scalar::Util qw/blessed reftype/;
use Carp qw/croak/;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Bail.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Bail;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Diag.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Diag;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Encoding.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Encoding;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Carp qw/croak/;

Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Exception.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Exception;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Fail.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Fail;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Test2::EventFacet::Info;

Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Generic.pm
Original file line number Diff line number Diff line change
Expand Up @@ -5,7 +5,7 @@ use warnings;
use Carp qw/croak/;
use Scalar::Util qw/reftype/;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
use Test2::Util::HashBase;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Note.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Note;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Ok.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Ok;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Pass.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Pass;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Test2::EventFacet::Info;

Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Plan.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Plan;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Skip.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Skip;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Subtest.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Subtest;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
use Test2::Util::HashBase qw{subevents buffered subtest_id subtest_uuid};
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/TAP/Version.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::TAP::Version;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Carp qw/croak/;

Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/V2.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::V2;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';

use Scalar::Util qw/reftype/;
use Carp qw/croak/;
Expand Down
2 changes: 1 addition & 1 deletion cpan/Test-Simple/lib/Test2/Event/Waiting.pm
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@ package Test2::Event::Waiting;
use strict;
use warnings;

our $VERSION = '1.302182';
our $VERSION = '1.302183';


BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
Expand Down
Loading

0 comments on commit 2cd1632

Please sign in to comment.