From: Chip Salzenberg <chip@pobox.com>
Date: Tue, 5 Aug 2003 11:39:24 +0000 (-0400)
Subject: Re: [perl #23083] [5.8.0-Bug?] backtick returns empty value when $SIG{CHLD} defined.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b1d8b47a028db8ab1908f3473c1e817e8d84b55d;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #23083] [5.8.0-Bug?] backtick returns empty value when $SIG{CHLD} defined.
Message-ID: <20030805153924.GO1751@perlsupport.com

p4raw-id: //depot/perl@20503
---

diff --git a/perlio.c b/perlio.c
index bb053cc..fa2cd83 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2980,6 +2980,8 @@ PerlIOStdio_read(pTHX_ PerlIO *f, void *vbuf, Size_t count)
 	}
 	else
 	    got = PerlSIO_fread(vbuf, 1, count, s);
+	if (got == 0 && PerlSIO_ferror(s))
+	    got = -1;
 	if (got >= 0 || errno != EINTR)
 	    break;
 	PERL_ASYNC_CHECK();