From 821b8a234bc50c46325206a621501cf30e11b29d Mon Sep 17 00:00:00 2001
From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 23 Aug 1999 03:23:34 +0000
Subject: Skip open() tests that rely on Unix fork semantics

p4raw-id: //depot/vmsperl@4024
---
 t/io/open.t | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 't/io/open.t')

diff --git a/t/io/open.t b/t/io/open.t
index 0154b8fc14..49b231179d 100755
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -3,6 +3,7 @@
 # $RCSfile$    
 $|  = 1;
 $^W = 1;
+$Is_VMS = $^O eq 'VMS';
 
 print "1..32\n";
 
@@ -78,7 +79,8 @@ print "ok 23\n";
 
 unlink("afile");     
 }
-{
+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)"
 EOC
@@ -89,7 +91,8 @@ 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"; }
+else {
 print "# \$!='$!'\nnot " unless open(my $f, '|-', <<'EOC');
 perl -pe "s/^not //"
 EOC
-- 
cgit v1.2.1