diff options
| author | Gisle Aas <gisle@aas.no> | 2005-10-03 19:18:27 -0700 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-10-04 10:10:41 +0000 |
| commit | 37038d913ecbccf83ca988aedaa1e6067b127dbc (patch) | |
| tree | 284fd7f7adeafc6ff07e44ed317c93aea7a6356d /doio.c | |
| parent | 49cf90411ef5ee744fe54688234613893a6876a9 (diff) | |
| download | perl-37038d913ecbccf83ca988aedaa1e6067b127dbc.tar.gz | |
Re: $^CHILD_ERROR_NATIVE issues (with attachment)
Message-ID: <lrd5ml7i8s.fsf@caliper.activestate.com>
p4raw-id: //depot/perl@25688
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1043,7 +1043,7 @@ Perl_io_close(pTHX_ IO *io, bool not_implicit) if (IoTYPE(io) == IoTYPE_PIPE) { const int status = PerlProc_pclose(IoIFP(io)); if (not_implicit) { - STATUS_NATIVE_SET(status); + STATUS_NATIVE_CHILD_SET(status); retval = (STATUS_UNIX == 0); } else { |