diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-23 04:55:39 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-23 04:55:39 +0000 |
| commit | 82c44e3364eb3c4078c422ac12fbcf5ac46c2ce7 (patch) | |
| tree | 5b5c3b6bf22b86e54cda9b4e99ea8fd010b9ab70 /lib/strict.t | |
| parent | 132efe8bfb7cd0fb1beb15aaf284e33bf44eb1fa (diff) | |
| download | perl-82c44e3364eb3c4078c422ac12fbcf5ac46c2ce7.tar.gz | |
Test tweaks for VMS from Craig Berry.
p4raw-id: //depot/perl@19845
Diffstat (limited to 'lib/strict.t')
| -rw-r--r-- | lib/strict.t | 4 |
1 files changed, 2 insertions, 2 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 $_ } } |