dougm 01/12/10 20:22:32
Modified: src/modules/perl modperl_perl.c
Log:
call END blocks before interpreter shutdown
Revision Changes Path
1.9 +4 -0 modperl-2.0/src/modules/perl/modperl_perl.c
Index: modperl_perl.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl.c,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- modperl_perl.c 2001/11/02 02:59:32 1.8
+++ modperl_perl.c 2001/12/11 04:22:32 1.9
@@ -100,6 +100,10 @@
PL_origenviron = environ;
#endif
+ if (PL_endav) {
+ modperl_perl_call_list(pTHX_ PL_endav, "END");
+ }
+
perl_destruct(perl);
/* XXX: big bug in 5.6.1 fixed in 5.7.2+
