summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Test2/IPC.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test2/IPC.pm')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/Test2/IPC.pm15
1 files changed, 13 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test2/IPC.pm b/Master/tlpkg/tlperl/lib/Test2/IPC.pm
index cfee4618023..b2a503bfa74 100755
--- a/Master/tlpkg/tlperl/lib/Test2/IPC.pm
+++ b/Master/tlpkg/tlperl/lib/Test2/IPC.pm
@@ -2,12 +2,13 @@ package Test2::IPC;
use strict;
use warnings;
-our $VERSION = '1.302133';
+our $VERSION = '1.302162';
use Test2::API::Instance;
use Test2::Util qw/get_tid/;
use Test2::API qw{
+ test2_in_preload
test2_init_done
test2_ipc
test2_has_ipc
@@ -18,6 +19,16 @@ use Test2::API qw{
context
};
+# Make sure stuff is finalized before anyone tried to fork or start a new thread.
+{
+ # Avoid warnings if things are loaded at run-time
+ no warnings 'void';
+ INIT {
+ use warnings 'void';
+ context()->release() unless test2_in_preload();
+ }
+}
+
use Carp qw/confess/;
our @EXPORT_OK = qw/cull/;
@@ -139,7 +150,7 @@ F<http://github.com/Test-More/test-more/>.
=head1 COPYRIGHT
-Copyright 2018 Chad Granum E<lt>exodist@cpan.orgE<gt>.
+Copyright 2019 Chad Granum E<lt>exodist@cpan.orgE<gt>.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.