diff options
| -rw-r--r-- | lib/strict.t | 4 | ||||
| -rw-r--r-- | lib/warnings.t | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/strict.t b/lib/strict.t index b153771cb7..b5911b3708 100644 --- a/lib/strict.t +++ b/lib/strict.t @@ -36,7 +36,7 @@ foreach (sort glob($^O eq 'MacOS' ? ":lib:strict:*" : "lib/strict/*")) { undef $/; -print "1..", @prgs + 4, "\n"; +print "1.." . (@prgs + 4) . "\n"; for (@prgs){ @@ -94,7 +94,7 @@ for (@prgs){ print STDERR "GOT:\n$results\n"; print "not "; } - print "ok ", ++$i, "\n"; + print "ok " . ++$i . "\n"; foreach (@temps) { unlink $_ if $_ } } diff --git a/lib/warnings.t b/lib/warnings.t index 0e65da992b..0647b552f4 100644 --- a/lib/warnings.t +++ b/lib/warnings.t @@ -59,7 +59,7 @@ foreach my $file (@w_files) { undef $/; -print "1..", scalar(@prgs)-$files, "\n"; +print "1.." . (scalar(@prgs)-$files) . "\n"; for (@prgs){ @@ -182,7 +182,7 @@ for (@prgs){ print STDERR "GOT:\n$results\n"; print "not "; } - print "ok ", ++$i, "\n"; + print "ok " . ++$i . "\n"; foreach (@temps) { unlink $_ if $_ } foreach (@temp_path) |