Adds PERL_EXIT_DESTRUCT_END to PL_exit_flags which if set moves END block running to perl_destruct, changes prototype of perl_destruct to return exitstatus.

p4raw-id: //depot/perl@11702

1 files changed, 1 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index 1ff9d32eda..36b19394bc 100644
--- a/perl.h
+++ b/perl.h
@@ -2070,6 +2070,7 @@ typedef pthread_key_t	perl_key;
 
 /* flags in PL_exit_flags for nature of exit() */
 #define PERL_EXIT_EXPECTED	0x01
+#define PERL_EXIT_DESTRUCT_END  0x02  /* Run END in perl_destruct */
 
 #ifndef MEMBER_TO_FPTR
 #  define MEMBER_TO_FPTR(name)		name