summaryrefslogtreecommitdiff
path: root/cop.h
diff options
context:
space:
mode:
authorGisle Aas <gisle@aas.no>2005-10-03 19:18:27 -0700
committerH.Merijn Brand <h.m.brand@xs4all.nl>2005-10-04 10:10:41 +0000
commit37038d913ecbccf83ca988aedaa1e6067b127dbc (patch)
tree284fd7f7adeafc6ff07e44ed317c93aea7a6356d /cop.h
parent49cf90411ef5ee744fe54688234613893a6876a9 (diff)
downloadperl-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 'cop.h')
-rw-r--r--cop.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/cop.h b/cop.h
index c874872746..f1a51fd6b4 100644
--- a/cop.h
+++ b/cop.h
@@ -123,7 +123,7 @@ typedef struct jmpenv JMPENV;
if (PL_top_env->je_prev) \
PerlProc_longjmp(PL_top_env->je_buf, (v)); \
if ((v) == 2) \
- PerlProc_exit(STATUS_NATIVE_EXPORT); \
+ PerlProc_exit(STATUS_EXIT); \
PerlIO_printf(PerlIO_stderr(), "panic: top_env\n"); \
PerlProc_exit(1); \
} STMT_END