From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 28 Feb 2000 02:43:56 +0000 (+0000)
Subject: Don't wait for subprocess to read final EOF
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c214fe26de32f4cec0ba0d6d303c73b7628da952;p=p5sagit%2Fp5-mst-13.2.git

Don't wait for subprocess to read final EOF

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

diff --git a/vms/vms.c b/vms/vms.c
index deae32f..f8d93bb 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -1123,7 +1123,7 @@ I32 Perl_my_pclose(pTHX_ FILE *fp)
     /* If we were writing to a subprocess, insure that someone reading from
      * the mailbox gets an EOF.  It looks like a simple fclose() doesn't
      * produce an EOF record in the mailbox.  */
-    if (info->mode != 'r' && !info->done) pipe_eof(info->fp,0);
+    if (info->mode != 'r' && !info->done) pipe_eof(info->fp,1);
     PerlIO_close(info->fp);
 
     if (info->done) retsts = info->completion;