From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 28 Feb 2000 00:00:08 +0000 (+0000)
Subject: Quote command line args which need to be upper case
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=340465361a0007175411aaaa64455dcdc736f3a1;p=p5sagit%2Fp5-mst-13.2.git

Quote command line args which need to be upper case
       Tell subprocess we're finished before waiting for it

p4raw-id: //depot/vmsperl@5297
---

diff --git a/t/io/openpid.t b/t/io/openpid.t
index 0e8b934..fca7fcf 100755
--- a/t/io/openpid.t
+++ b/t/io/openpid.t
@@ -24,7 +24,7 @@ $SIG{PIPE} = 'IGNORE';
 
 print "1..10\n";
 
-$perl = "$^X -I../lib";
+$perl = qq[$^X "-I../lib"];
 
 #
 # commands run 4 perl programs.  Two of these programs write a
@@ -79,7 +79,9 @@ print "ok 8\n";
 autoflush FH4 1;
 print FH4 "ok 9\n";
 print "# waiting for process $pid4 to exit\n";
+#VMS: Send an EOF to convince the subprocess to exit as well
+if ($^O eq 'VMS') { use VMS::Stdio qw(&writeof); writeof(FH4); }
 $reap_pid = waitpid $pid4, 0;
 print "# reaped pid $reap_pid != $pid4\nnot "
-    unless $reap_pid == $pid4;
+    unless $reap_pid == $pid4;         
 print "ok 10\n";