make PERL_EXIT_DESTRUCT_END optional

git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@271 726aef4b-f618-498e-8847-2d620e286838
This commit is contained in:
imaginos
2005-05-12 04:20:18 +00:00
parent 08ca5fd198
commit 3a724c2350
+2
View File
@@ -473,7 +473,9 @@ bool CModPerl::OnLoad( const CString & sArgs )
};
perl_parse( m_pPerl, NULL, 2, (char **)pArgv, (char **)NULL );
#ifdef PERL_EXIT_DESTRUCT_END
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
#endif /* PERL_EXIT_DESTRUCT_END */
newXS( "AddHook", XS_AddHook, (char *)__FILE__ );
newXS( "DelHook", XS_DelHook, (char *)__FILE__ );