INN commit: branches/2.4/lib (perl.c)

[INN Commit]

    Date: Sunday, July 20, 2008 @ 03:27:24
  Author: iulius
Revision: 7938

Use PERL_EXIT_DESTRUCT_END as specified in the perlembed man page.
Indeed, it has otherwise been causing problems for applications that never
call perl_run since perl 5.7.2.
This flag enables the running of END blocks if the perl_parse fails;
perl_destruct will return the exit value.

Modified:
  branches/2.4/lib/perl.c

--------+
 perl.c |    3 +++
 1 file changed, 3 insertions(+)

Modified: perl.c
===================================================================
--- perl.c	2008-07-20 10:27:20 UTC (rev 7937)
+++ perl.c	2008-07-20 10:27:24 UTC (rev 7938)
@@ -117,6 +117,9 @@
 #endif
         PerlCode = perl_alloc();
         perl_construct(PerlCode);
+#ifdef PERL_EXIT_DESTRUCT_END
+        PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+#endif
         perl_parse(PerlCode, xs_init, argc, (char **)argv, env) ;
     }