INN commit: trunk/lib (perl.c)

[INN Commit]

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

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:
  trunk/lib/perl.c

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

Modified: perl.c
===================================================================
--- perl.c	2008-07-20 10:20:41 UTC (rev 7936)
+++ perl.c	2008-07-20 10:27:20 UTC (rev 7937)
@@ -120,6 +120,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) ;
     }