From 421c25ad7009d112081f69bba11908caa85f4ca8 Mon Sep 17 00:00:00 2001 From: Anthony Minessale Date: Mon, 12 May 2008 16:04:34 +0000 Subject: [PATCH] doh git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8364 d0543943-73ff-0310-b7d9-9358b9ac24b2 --- src/mod/languages/mod_perl/freeswitch_perl.cpp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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()