diff options
| author | Gisle Aas <gisle@aas.no> | 2005-05-18 01:35:47 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-18 16:08:30 +0000 |
| commit | e5218da503dbb4980410e0018f4cc5dcba3ea666 (patch) | |
| tree | 896f8cf586a22fa6f98384571dea2ba73b133df3 /doio.c | |
| parent | 6b09c1601036c61459334bdedef5d7e29e07fcaf (diff) | |
| download | perl-e5218da503dbb4980410e0018f4cc5dcba3ea666.tar.gz | |
Well defined $? and introduction of ${^CHILD_ERROR_NATIVE} [PATCH]
Message-ID: <lr8y2cim24.fsf_-_@caliper.activestate.com>
p4raw-id: //depot/perl@24501
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1046,7 +1046,7 @@ Perl_io_close(pTHX_ IO *io, bool not_implicit) const int status = PerlProc_pclose(IoIFP(io)); if (not_implicit) { STATUS_NATIVE_SET(status); - retval = (STATUS_POSIX == 0); + retval = (STATUS_UNIX == 0); } else { retval = (status != -1); |