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 /t/io | |
| parent | 6683669a6df1339a4d1816323a59ecded54b73e5 (diff) | |
| download | perl-d132b95fb004c5e3d94e297d3804c90cfef96fed.tar.gz | |
Small VMS nits from Craig A. Berry, <craig.berry@metamor.com>.
p4raw-id: //depot/cfgperl@4598
Diffstat (limited to 't/io')
| -rwxr-xr-x | t/io/open.t | 4 |
1 files changed, 2 insertions, 2 deletions
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 //" |