From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 22 Nov 1999 21:30:17 +0000 (+0000)
Subject: Small VMS nits from Craig A. Berry, <craig.berry@metamor.com>.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d132b95fb004c5e3d94e297d3804c90cfef96fed;p=p5sagit%2Fp5-mst-13.2.git

Small VMS nits from Craig A. Berry, <craig.berry@metamor.com>.

p4raw-id: //depot/cfgperl@4598
---

diff --git a/README.vms b/README.vms
index fb13838..13a1f9b 100644
--- a/README.vms
+++ b/README.vms
@@ -144,14 +144,14 @@ confident you are, make a bug report to the VMSPerl mailing list.
 If one or more tests fail, you can get more info on the failure by issuing
 this command sequence:
 
-$ @[.VMS]TEST .typ "-v" [.subdir]test.T
+$ @[.VMS]TEST .typ "" "-v" [.subdir]test.T
 
 where ".typ" is the file type of the Perl images you just built (if you
 didn't do anything special, use .EXE), and "[.subdir]test.T" is the test
 that failed. For example, with a normal Perl build, if the test indicated
 that [.op]time failed, then you'd do this:
 
-$ @[.VMS]TEST .EXE "-v" [.OP]TIME.T
+$ @[.VMS]TEST .EXE "" "-v" [.OP]TIME.T
 
 When you send in a bug report for failed tests, please include the output
 from this command, which is run from the main source directory:
diff --git a/t/io/open.t b/t/io/open.t
index 418edac..905aee5 100755
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -79,7 +79,7 @@ print "ok 23\n";
 
 unlink("afile");     
 }
-if ($Is_VMS) { for (24..46) { print "ok $_ # skipped: not Unix fork\n"; } }
+if ($Is_VMS) { for (24..26) { print "ok $_ # skipped: not Unix fork\n"; } }
 else {
 print "# \$!='$!'\nnot " unless open(my $f, '-|', <<'EOC');
 ./perl -e "print qq(a row\n); print qq(another row\n)"
@@ -91,7 +91,7 @@ print "ok 25\n";
 print "not " unless close($f);
 print "ok 26\n";
 }
-if ($Is_VMS) { for (27..30) { print "OK $_ # skipped: not Unix fork\n"; } }
+if ($Is_VMS) { for (27..30) { print "ok $_ # skipped: not Unix fork\n"; } }
 else {
 print "# \$!='$!'\nnot " unless open(my $f, '|-', <<'EOC');
 ./perl -pe "s/^not //"