Perl · jkeenan · Jun 27, 2025
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
@@ -1126,8 +1126,8 @@ package Maintainers;
     },
 
     'Test::Simple' => {
-        'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302210.tar.gz',
-        'SYNCINFO'     => 'jkeenan on Tue Apr  1 20:47:53 2025',
+        'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302214.tar.gz',
+        'SYNCINFO'     => 'jkeenan on Fri Jun 27 06:54:11 2025',
         'FILES'        => q[cpan/Test-Simple],
         'EXCLUDED'     => [
             qr{^examples/},

diff --git a/cpan/Test-Simple/lib/Test/Builder.pm b/cpan/Test-Simple/lib/Test/Builder.pm
@@ -4,7 +4,7 @@ use 5.006;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use Scalar::Util qw/blessed reftype weaken/;
 

diff --git a/cpan/Test-Simple/lib/Test/Builder/Formatter.pm b/cpan/Test-Simple/lib/Test/Builder/Formatter.pm
@@ -2,7 +2,7 @@ package Test::Builder::Formatter;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
 

diff --git a/cpan/Test-Simple/lib/Test/Builder/Module.pm b/cpan/Test-Simple/lib/Test/Builder/Module.pm
@@ -7,7 +7,7 @@ use Test::Builder;
 require Exporter;
 our @ISA = qw(Exporter);
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 
 =head1 NAME

diff --git a/cpan/Test-Simple/lib/Test/Builder/Tester.pm b/cpan/Test-Simple/lib/Test/Builder/Tester.pm
@@ -1,7 +1,7 @@
 package Test::Builder::Tester;
 
 use strict;
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use Test::Builder;
 use Symbol;

diff --git a/cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm b/cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm
@@ -1,7 +1,7 @@
 package Test::Builder::Tester::Color;
 
 use strict;
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 require Test::Builder::Tester;
 

diff --git a/cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm b/cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm
@@ -2,7 +2,7 @@ package Test::Builder::TodoDiag;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 BEGIN { require Test2::Event::Diag; our @ISA = qw(Test2::Event::Diag) }
 

diff --git a/cpan/Test-Simple/lib/Test/More.pm b/cpan/Test-Simple/lib/Test/More.pm
@@ -17,7 +17,7 @@ sub _carp {
     return warn @_, " at $file line $line\n";
 }
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use Test::Builder::Module;
 our @ISA    = qw(Test::Builder::Module);
@@ -2004,7 +2004,7 @@ L<Test::Most> Most commonly needed test functions and features.
 
 =head1 ENVIRONMENT VARIABLES
 
-See L<Test2::Env> for a list of meaningul environment variables.
+See L<Test2::Env> for a list of meaningful environment variables.
 
 =head1 AUTHORS
 

diff --git a/cpan/Test-Simple/lib/Test/Simple.pm b/cpan/Test-Simple/lib/Test/Simple.pm
@@ -4,7 +4,7 @@ use 5.006;
 
 use strict;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use Test::Builder::Module;
 our @ISA    = qw(Test::Builder::Module);

diff --git a/cpan/Test-Simple/lib/Test/Tester.pm b/cpan/Test-Simple/lib/Test/Tester.pm
@@ -16,7 +16,7 @@ use Test::Tester::Delegate;
 
 require Exporter;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 our @EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
 our @ISA = qw( Exporter );

diff --git a/cpan/Test-Simple/lib/Test/Tester/Capture.pm b/cpan/Test-Simple/lib/Test/Tester/Capture.pm
@@ -2,7 +2,7 @@ use strict;
 
 package Test::Tester::Capture;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 
 use Test::Builder;

diff --git a/cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm b/cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm
@@ -3,7 +3,7 @@ use strict;
 
 package Test::Tester::CaptureRunner;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 
 use Test::Tester::Capture;

diff --git a/cpan/Test-Simple/lib/Test/Tester/Delegate.pm b/cpan/Test-Simple/lib/Test/Tester/Delegate.pm
@@ -3,7 +3,7 @@ use warnings;
 
 package Test::Tester::Delegate;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use Scalar::Util();
 

diff --git a/cpan/Test-Simple/lib/Test/use/ok.pm b/cpan/Test-Simple/lib/Test/use/ok.pm
@@ -1,7 +1,7 @@
 package Test::use::ok;
 use 5.005;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 
 __END__

diff --git a/cpan/Test-Simple/lib/Test2.pm b/cpan/Test-Simple/lib/Test2.pm
@@ -2,7 +2,7 @@ package Test2;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 
 1;

diff --git a/cpan/Test-Simple/lib/Test2/API.pm b/cpan/Test-Simple/lib/Test2/API.pm
@@ -10,7 +10,7 @@ BEGIN {
     $ENV{TEST2_ACTIVE} = 1;
 }
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 
 my $INST;

diff --git a/cpan/Test-Simple/lib/Test2/API/Breakage.pm b/cpan/Test-Simple/lib/Test2/API/Breakage.pm
@@ -2,7 +2,7 @@ package Test2::API::Breakage;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 
 use Test2::Util qw/pkg_to_file/;

diff --git a/cpan/Test-Simple/lib/Test2/API/Context.pm b/cpan/Test-Simple/lib/Test2/API/Context.pm
@@ -2,7 +2,7 @@ package Test2::API::Context;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 
 use Carp qw/confess croak/;
@@ -74,7 +74,7 @@ sub DESTROY {
         # Sometimes $@ is uninitialized, not a problem in this case so do not
         # show the warning about using eq.
         no warnings 'uninitialized';
-        if($self->{+EVAL_ERROR} eq $@ && $hub->is_local) {
+        if($self->{+EVAL_ERROR} eq $@ && $hub->is_local && !$hub->suppress_release_error) {
             require Carp;
             my $mess = Carp::longmess("Context destroyed");
             my $frame = $self->{+_IS_SPAWN} || $self->{+TRACE}->frame;

diff --git a/cpan/Test-Simple/lib/Test2/API/Instance.pm b/cpan/Test-Simple/lib/Test2/API/Instance.pm
@@ -2,7 +2,7 @@ package Test2::API::Instance;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/;
 use Carp qw/confess carp/;

diff --git a/cpan/Test-Simple/lib/Test2/API/InterceptResult.pm b/cpan/Test-Simple/lib/Test2/API/InterceptResult.pm
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use Scalar::Util qw/blessed/;
 use Test2::Util  qw/pkg_to_file/;

diff --git a/cpan/Test-Simple/lib/Test2/API/InterceptResult/Event.pm b/cpan/Test-Simple/lib/Test2/API/InterceptResult/Event.pm
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Event;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use List::Util   qw/first/;
 use Test2::Util  qw/pkg_to_file/;

diff --git a/cpan/Test-Simple/lib/Test2/API/InterceptResult/Facet.pm b/cpan/Test-Simple/lib/Test2/API/InterceptResult/Facet.pm
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Facet;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 BEGIN {
     require Test2::EventFacet;

diff --git a/cpan/Test-Simple/lib/Test2/API/InterceptResult/Hub.pm b/cpan/Test-Simple/lib/Test2/API/InterceptResult/Hub.pm
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Hub;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 BEGIN { require Test2::Hub; our @ISA = qw(Test2::Hub) }
 use Test2::Util::HashBase;

diff --git a/cpan/Test-Simple/lib/Test2/API/InterceptResult/Squasher.pm b/cpan/Test-Simple/lib/Test2/API/InterceptResult/Squasher.pm
@@ -2,7 +2,7 @@ package Test2::API::InterceptResult::Squasher;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use Carp qw/croak/;
 use List::Util qw/first/;

diff --git a/cpan/Test-Simple/lib/Test2/API/Stack.pm b/cpan/Test-Simple/lib/Test2/API/Stack.pm
@@ -2,7 +2,7 @@ package Test2::API::Stack;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 
 use Test2::Hub();

diff --git a/cpan/Test-Simple/lib/Test2/AsyncSubtest.pm b/cpan/Test-Simple/lib/Test2/AsyncSubtest.pm
@@ -4,7 +4,7 @@ use warnings;
 
 use Test2::IPC;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 our @CARP_NOT = qw/Test2::Util::HashBase/;
 

diff --git a/cpan/Test-Simple/lib/Test2/AsyncSubtest/Event/Attach.pm b/cpan/Test-Simple/lib/Test2/AsyncSubtest/Event/Attach.pm
@@ -2,7 +2,7 @@ package Test2::AsyncSubtest::Event::Attach;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use base 'Test2::Event';
 use Test2::Util::HashBase qw/id/;

diff --git a/cpan/Test-Simple/lib/Test2/AsyncSubtest/Event/Detach.pm b/cpan/Test-Simple/lib/Test2/AsyncSubtest/Event/Detach.pm
@@ -2,7 +2,7 @@ package Test2::AsyncSubtest::Event::Detach;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use base 'Test2::Event';
 use Test2::Util::HashBase qw/id/;

diff --git a/cpan/Test-Simple/lib/Test2/AsyncSubtest/Formatter.pm b/cpan/Test-Simple/lib/Test2/AsyncSubtest/Formatter.pm
@@ -2,7 +2,7 @@ package Test2::AsyncSubtest::Formatter;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 die "Should not load this anymore";
 

diff --git a/cpan/Test-Simple/lib/Test2/AsyncSubtest/Hub.pm b/cpan/Test-Simple/lib/Test2/AsyncSubtest/Hub.pm
@@ -2,12 +2,16 @@ package Test2::AsyncSubtest::Hub;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use base 'Test2::Hub::Subtest';
 use Test2::Util::HashBase qw/ast_ids ast/;
 use Test2::Util qw/get_tid/;
 
+my $NO_WARN_FOR_PLAN = 0;
+
+sub do_not_warn_on_plan { $NO_WARN_FOR_PLAN = 1 };
+
 sub init {
     my $self = shift;
 
@@ -40,14 +44,16 @@ sub send {
     my $self = shift;
     my ($e) = @_;
 
-    if (my $ast = $self->ast) {
-        if ($$ != $ast->pid || get_tid != $ast->tid) {
-            if (my $plan = $e->facet_data->{plan}) {
-                unless ($plan->{skip}) {
-                    my $trace = $e->facet_data->{trace};
-                    bless($trace, 'Test2::EventFacet::Trace');
-                    $trace->alert("A plan should not be set inside an async-subtest (did you call done_testing()?)");
-                    return;
+    unless ($NO_WARN_FOR_PLAN) {
+        if (my $ast = $self->ast) {
+            if ($$ != $ast->pid || get_tid != $ast->tid) {
+                if (my $plan = $e->facet_data->{plan}) {
+                    unless ($plan->{skip}) {
+                        my $trace = $e->facet_data->{trace};
+                        bless($trace, 'Test2::EventFacet::Trace');
+                        $trace->alert("A plan should not be set inside an async-subtest (did you call done_testing()?)");
+                        return;
+                    }
                 }
             }
         }

diff --git a/cpan/Test-Simple/lib/Test2/Bundle.pm b/cpan/Test-Simple/lib/Test2/Bundle.pm
@@ -2,7 +2,7 @@ package Test2::Bundle;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 1;
 

diff --git a/cpan/Test-Simple/lib/Test2/Bundle/Extended.pm b/cpan/Test-Simple/lib/Test2/Bundle/Extended.pm
@@ -4,7 +4,7 @@ use warnings;
 
 use Test2::V0;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 BEGIN {
     push @Test2::Bundle::Extended::ISA => 'Test2::V0';

diff --git a/cpan/Test-Simple/lib/Test2/Bundle/More.pm b/cpan/Test-Simple/lib/Test2/Bundle/More.pm
@@ -2,7 +2,7 @@ package Test2::Bundle::More;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use Test2::Plugin::ExitSummary;
 

diff --git a/cpan/Test-Simple/lib/Test2/Bundle/Simple.pm b/cpan/Test-Simple/lib/Test2/Bundle/Simple.pm
@@ -2,7 +2,7 @@ package Test2::Bundle::Simple;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use Test2::Plugin::ExitSummary;
 

diff --git a/cpan/Test-Simple/lib/Test2/Compare.pm b/cpan/Test-Simple/lib/Test2/Compare.pm
@@ -2,7 +2,7 @@ package Test2::Compare;
 use strict;
 use warnings;
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use Scalar::Util qw/blessed/;
 use Test2::Util qw/try/;
@@ -296,8 +296,8 @@ the value being checked.
 
 =item $check = strict_convert($thing)
 
-Convert C<$thing> to an L<Test2::Compare::*> object. This will behave strictly
-which means it uses these settings:
+Convert C<$thing> to an L<Test2::Compare::*|Test2::Compare::Base> object. This
+will behave strictly which means it uses these settings:
 
 =over 4
 
@@ -318,8 +318,8 @@ Regexes will be compared directly (IE are the regexes the same?)
 
 =item $compare = relaxed_convert($thing)
 
-Convert C<$thing> to an L<Test2::Compare::*> object. This will be relaxed which
-means it uses these settings:
+Convert C<$thing> to an L<Test2::Compare::*|Test2::Compare::Base> object. This
+will be relaxed which means it uses these settings:
 
 =over 4
 

diff --git a/cpan/Test-Simple/lib/Test2/Compare/Array.pm b/cpan/Test-Simple/lib/Test2/Compare/Array.pm
@@ -4,7 +4,7 @@ use warnings;
 
 use base 'Test2::Compare::Base';
 
-our $VERSION = '1.302210';
+our $VERSION = '1.302214';
 
 use Test2::Util::HashBase qw/inref meta ending items order for_each/;