Author: anthm Date: Mon May 12 12:04:34 2008 New Revision: 8364 Modified: freeswitch/trunk/src/mod/languages/mod_perl/freeswitch_perl.cpp Log: doh Modified: freeswitch/trunk/src/mod/languages/mod_perl/freeswitch_perl.cpp ============================================================================== --- freeswitch/trunk/src/mod/languages/mod_perl/freeswitch_perl.cpp (original) +++ freeswitch/trunk/src/mod/languages/mod_perl/freeswitch_perl.cpp Mon May 12 12:04:34 2008 @@ -27,9 +27,14 @@ { 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()