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 | |
| parent | 132efe8bfb7cd0fb1beb15aaf284e33bf44eb1fa (diff) | |
| download | perl-82c44e3364eb3c4078c422ac12fbcf5ac46c2ce7.tar.gz | |
Test tweaks for VMS from Craig Berry.
p4raw-id: //depot/perl@19845
| -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) |