From: Anthony Minessale <anthony.minessale@gmail.com>
Date: Mon, 12 May 2008 16:04:34 +0000 (+0000)
Subject: doh
X-Git-Tag: v1.0-rc5~17
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=421c25ad7009d112081f69bba11908caa85f4ca8;p=thirdparty%2Ffreeswitch.git

doh

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8364 d0543943-73ff-0310-b7d9-9358b9ac24b2
---

diff --git a/src/mod/languages/mod_perl/freeswitch_perl.cpp b/src/mod/languages/mod_perl/freeswitch_perl.cpp
index 37c9a348b3..14bc233397 100644
--- a/src/mod/languages/mod_perl/freeswitch_perl.cpp
+++ b/src/mod/languages/mod_perl/freeswitch_perl.cpp
@@ -27,9 +27,14 @@ Session::~Session()
 {
 	switch_safe_free(cb_function);
 	switch_safe_free(cb_arg);
+
+	if (session && hangup_func_str) {
+		switch_core_event_hook_remove_state_change(session, perl_hanguphook);
+	}
+
 	switch_safe_free(hangup_func_str);
 	switch_safe_free(hangup_func_arg);
-	switch_core_event_hook_remove_state_change(session, perl_hanguphook);
+
 }
 
 bool Session::begin_allow_threads()