diff options
Diffstat (limited to 't/io/open.t')
| -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 //" |