From c214fe26de32f4cec0ba0d6d303c73b7628da952 Mon Sep 17 00:00:00 2001 From: Charles Bailey Date: Mon, 28 Feb 2000 02:43:56 +0000 Subject: [PATCH] Don't wait for subprocess to read final EOF p4raw-id: //depot/vmsperl@5300 --- vms/vms.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.7.4