summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/TAP/Parser/Iterator/Process.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/TAP/Parser/Iterator/Process.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/TAP/Parser/Iterator/Process.pm17
1 files changed, 7 insertions, 10 deletions
diff --git a/Master/tlpkg/tlperl/lib/TAP/Parser/Iterator/Process.pm b/Master/tlpkg/tlperl/lib/TAP/Parser/Iterator/Process.pm
index 8f43f0a45bc..aaf6b6cf61a 100644
--- a/Master/tlpkg/tlperl/lib/TAP/Parser/Iterator/Process.pm
+++ b/Master/tlpkg/tlperl/lib/TAP/Parser/Iterator/Process.pm
@@ -1,13 +1,12 @@
package TAP::Parser::Iterator::Process;
use strict;
-use vars qw($VERSION @ISA);
+use warnings;
-use TAP::Parser::Iterator ();
use Config;
use IO::Handle;
-@ISA = 'TAP::Parser::Iterator';
+use base 'TAP::Parser::Iterator';
my $IS_WIN32 = ( $^O =~ /^(MS)?Win32$/ );
@@ -17,11 +16,11 @@ TAP::Parser::Iterator::Process - Iterator for process-based TAP sources
=head1 VERSION
-Version 3.26
+Version 3.30
=cut
-$VERSION = '3.26';
+our $VERSION = '3.30';
=head1 SYNOPSIS
@@ -79,7 +78,7 @@ Get the exit status for this iterator's process.
{
- local $^W; # no warnings
+ no warnings 'uninitialized';
# get around a catch22 in the test suite that causes failures on Win32:
local $SIG{__DIE__} = undef;
eval { require POSIX; &POSIX::WEXITSTATUS(0) };
@@ -138,7 +137,7 @@ sub _initialize {
# HOTPATCH {{{
my $xclose = \&IPC::Open3::xclose;
- local $^W; # no warnings
+ no warnings;
local *IPC::Open3::xclose = sub {
my $fh = shift;
no strict 'refs';
@@ -158,9 +157,7 @@ sub _initialize {
};
die "Could not execute (@command): $@" if $@;
if ( $] >= 5.006 ) {
-
- # Kludge to avoid warning under 5.5
- eval 'binmode($out, ":crlf")';
+ binmode($out, ":crlf");
}
}
else {