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 37c9a348b3cc754bc52df6f6dc36b2be5d394dfd..14bc23339771ef5ed98de4307f8f83a3eaedd41b 100644 (file)
--- 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()