From 3a724c235015f69714565da96e05100415f63d85 Mon Sep 17 00:00:00 2001
From: imaginos <imaginos@726aef4b-f618-498e-8847-2d620e286838>
Date: Thu, 12 May 2005 04:20:18 +0000
Subject: [PATCH] make PERL_EXIT_DESTRUCT_END optional

git-svn-id: https://znc.svn.sourceforge.net/svnroot/znc/trunk@271 726aef4b-f618-498e-8847-2d620e286838
---
 modules/modperl.cpp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/modules/modperl.cpp b/modules/modperl.cpp
index 22a1a3c6..fbaca31b 100644
--- a/modules/modperl.cpp
+++ b/modules/modperl.cpp
@@ -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__ );