resync with mainline

[perl5.git] / t / io / open.t

diff --git a/t/io/open.t b/t/io/open.t
index 0329c31..418edac 100755 (executable)
--- 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..46) { 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 //"