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 (file)
--- 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();