[Freeswitch-svn] [commit] r8364 - freeswitch/trunk/src/mod/languages/mod_perl

[Freeswitch SVN]

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()