summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Test.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Test.pm8
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 $_";