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 | 7879c54c4e8313f0dbed1c3004922ee7a85de64d (patch) | |
tree | 284fd7f7adeafc6ff07e44ed317c93aea7a6356d /perl.c | |
parent | 68a1de4f489f7b4cf7b721f26cc0f2f94790c81a (diff) | |
download | perl-7879c54c4e8313f0dbed1c3004922ee7a85de64d.tar.gz |
Re: $^CHILD_ERROR_NATIVE issues (with attachment)
Message-ID: <lrd5ml7i8s.fsf@caliper.activestate.com>
p4raw-id: //depot/perl@25688
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -546,7 +546,7 @@ perl_destruct(pTHXx) if (CALL_FPTR(PL_threadhook)(aTHX)) { /* Threads hook has vetoed further cleanup */ - return STATUS_NATIVE_EXPORT; + return STATUS_EXIT; } #ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP @@ -768,7 +768,7 @@ perl_destruct(pTHXx) #endif /* The exit() function will do everything that needs doing. */ - return STATUS_NATIVE_EXPORT; + return STATUS_EXIT; } /* jettison our possibly duplicated environment */ @@ -1259,7 +1259,7 @@ perl_destruct(pTHXx) Safefree(PL_mess_sv); PL_mess_sv = Nullsv; } - return STATUS_NATIVE_EXPORT; + return STATUS_EXIT; } /* @@ -1555,7 +1555,7 @@ setuid perl scripts securely.\n"); PL_curstash = PL_defstash; if (PL_checkav) call_list(oldscope, PL_checkav); - ret = STATUS_NATIVE_EXPORT; + ret = STATUS_EXIT; break; case 3: PerlIO_printf(Perl_error_log, "panic: top_env\n"); @@ -2215,7 +2215,7 @@ perl_run(pTHXx) if (PerlEnv_getenv("PERL_DEBUG_MSTATS")) dump_mstats("after execution: "); #endif - ret = STATUS_NATIVE_EXPORT; + ret = STATUS_EXIT; break; case 3: if (PL_restartop) { @@ -5140,7 +5140,7 @@ Perl_my_exit(pTHX_ U32 status) STATUS_ALL_FAILURE; break; default: - STATUS_NATIVE_SET(status); + STATUS_UNIX_SET(status); break; } my_exit_jump(); |