diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-22 21:30:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-22 21:30:17 +0000 |
| commit | d132b95fb004c5e3d94e297d3804c90cfef96fed (patch) | |
| tree | 29be06f7c4a7e2e3679a7546fc1905196b5992c2 | |
| parent | 6683669a6df1339a4d1816323a59ecded54b73e5 (diff) | |
| download | perl-d132b95fb004c5e3d94e297d3804c90cfef96fed.tar.gz | |
Small VMS nits from Craig A. Berry, <craig.berry@metamor.com>.
p4raw-id: //depot/cfgperl@4598
| -rw-r--r-- | README.vms | 4 | ||||
| -rwxr-xr-x | t/io/open.t | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/README.vms b/README.vms index fb13838842..13a1f9bb51 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 418edacf39..905aee50af 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 //" |