summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm12
1 files changed, 4 insertions, 8 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm b/Master/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm
index 1d37a833264..f6d7ff1b2c0 100755
--- a/Master/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm
+++ b/Master/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm
@@ -2,8 +2,7 @@ package Test2::IPC::Driver::Files;
use strict;
use warnings;
-our $VERSION = '1.302133';
-
+our $VERSION = '1.302162';
BEGIN { require Test2::IPC::Driver; our @ISA = qw(Test2::IPC::Driver) }
@@ -18,9 +17,6 @@ use POSIX();
use Test2::Util qw/try get_tid pkg_to_file IS_WIN32 ipc_separator do_rename do_unlink try_sig_mask/;
use Test2::API qw/test2_ipc_set_pending/;
-sub use_shm { 1 }
-sub shm_size() { 64 }
-
sub is_viable { 1 }
sub init {
@@ -168,7 +164,7 @@ do so if Test::Builder is loaded for legacy reasons.
if ($ok) {
$self->abort("Could not rename file '$file' -> '$ready': $ren_err") unless $ren_ok;
- test2_ipc_set_pending(substr($file, -(shm_size)));
+ test2_ipc_set_pending($file);
}
else {
my $src_file = __FILE__;
@@ -270,7 +266,7 @@ sub parse_event_filename {
my $ready = substr($file, -6, 6) eq '.ready' || 0 and substr($file, -6, 6, "");
my @parts = split ipc_separator, $file;
- my ($global, $hid) = $parts[0] eq 'GLOBAL' ? (1, shift @parts) : (0, join ipc_separator, splice(@parts, 0, 3));
+ my ($global, $hid) = $parts[0] eq 'GLOBAL' ? (1, shift @parts) : (0, join ipc_separator, splice(@parts, 0, 4));
my ($pid, $tid, $eid) = splice(@parts, 0, 3);
my $type = join '::' => @parts;
@@ -473,7 +469,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.