diff options
| author | Chip Salzenberg <chip@pobox.com> | 2003-08-05 07:39:24 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-05 16:02:14 +0000 |
| commit | b1d8b47a028db8ab1908f3473c1e817e8d84b55d (patch) | |
| tree | 3bf771373c9fc3b61e241a50643733f9477cfd8d /perlio.c | |
| parent | 0a7c666e19ecbf1103304b30268ae2c69de61220 (diff) | |
| download | perl-b1d8b47a028db8ab1908f3473c1e817e8d84b55d.tar.gz | |
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
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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(); |