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/warnings.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/warnings.t')
| -rw-r--r-- | lib/warnings.t | 4 |
1 files changed, 2 insertions, 2 deletions
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) |