diff options
author | Karl Berry <karl@freefriends.org> | 2018-03-08 00:16:42 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-03-08 00:16:42 +0000 |
commit | 34a8597760ab5740abd49b6d8be10e1876f5ce98 (patch) | |
tree | 099a794912a28b3ebbc857961643ba29b28e674a /Master/tlpkg/tlperl/lib/Test.pm | |
parent | 2ca3610031316a7312d046d3ae4c783452831216 (diff) |
(tl)perl 5.26.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@46882 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Test.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test.pm b/Master/tlpkg/tlperl/lib/Test.pm index 3350517e649..ce544ffe19e 100644 --- a/Master/tlpkg/tlperl/lib/Test.pm +++ b/Master/tlpkg/tlperl/lib/Test.pm @@ -20,7 +20,7 @@ sub _reset_globals { $planned = 0; } -$VERSION = '1.28_01'; +$VERSION = '1.30'; require Exporter; @ISA=('Exporter'); @@ -199,7 +199,7 @@ sub _read_program { my($file) = shift; return unless defined $file and length $file and -e $file and -f _ and -r _; - open(SOURCEFILE, "<$file") || return; + open(SOURCEFILE, '<', $file) || return; $Program_Lines{$file} = [<SOURCEFILE>]; close(SOURCEFILE); @@ -346,7 +346,7 @@ If either (or both!) is a subroutine reference, it is run and used as the value for comparing. For example: ok sub { - open(OUT, ">x.dat") || die $!; + open(OUT, '>', 'x.dat') || die $!; print OUT "\x{e000}"; close OUT; my $bytecount = -s 'x.dat'; @@ -540,7 +540,7 @@ sub _diff_complain_external { if (close($got_fh) && close($exp_fh)) { my $diff_cmd = "$diff $exp_filename $got_filename"; print $TESTERR "#\n# $prefix $diff_cmd\n"; - if (open(DIFF, "$diff_cmd |")) { + if (open(DIFF, '-|', $diff_cmd)) { local $_; while (<DIFF>) { print $TESTERR "# $prefix $_"; |