avoid "Callback called exit" error on intentional exit()

p4raw-id: //depot/perl@4609

1 files changed, 3 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index f0dcf1e232..7197dcc907 100644
--- a/perl.h
+++ b/perl.h
@@ -1592,6 +1592,9 @@ typedef pthread_key_t	perl_key;
 #   define STATUS_ALL_FAILURE	(PL_statusvalue = 1)
 #endif
 
+/* flags in PL_exit_flags for nature of exit() */
+#define PERL_EXIT_EXPECTED	0x01
+
 #ifndef MEMBER_TO_FPTR
 #define MEMBER_TO_FPTR(name)		name
 #endif