diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm')
| -rwxr-xr-x | Master/tlpkg/tlperl/lib/Test2/IPC/Driver/Files.pm | 12 |
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. |