This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade Test-Simple from version 1.302100 to 1.302101
[perl5.git] / cpan / Test-Simple / lib / Test2 / IPC.pm
index ff8a6da..748f0cc 100644 (file)
@@ -2,7 +2,7 @@ package Test2::IPC;
 use strict;
 use warnings;
 
-our $VERSION = '1.302015';
+our $VERSION = '1.302101';
 
 
 use Test2::API::Instance;
@@ -14,18 +14,19 @@ use Test2::API qw{
     test2_pid
     test2_stack
     test2_tid
+    context
 };
 
 use Carp qw/confess/;
 
 our @EXPORT_OK = qw/cull/;
-use base 'Exporter';
+BEGIN { require Exporter; our @ISA = qw(Exporter) }
 
 sub import {
     goto &Exporter::import unless test2_init_done();
 
-    confess "Cannot add IPC in a child process" if test2_pid() != $$;
-    confess "Cannot add IPC in a child thread"  if test2_tid() != get_tid();
+    confess "Cannot add IPC in a child process (" . test2_pid() . " vs $$)" if test2_pid() != $$;
+    confess "Cannot add IPC in a child thread (" . test2_tid() . " vs " . get_tid() . ")"  if test2_tid() != get_tid();
 
     Test2::API::_set_ipc(_make_ipc());
     apply_ipc(test2_stack());
@@ -129,7 +130,7 @@ F<http://github.com/Test-More/test-more/>.
 
 =head1 COPYRIGHT
 
-Copyright 2016 Chad Granum E<lt>exodist@cpan.orgE<gt>.
+Copyright 2017 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.