[Freeswitch-svn] [commit] r3410 - in freeswitch/trunk/src: . mod/languages/mod_perl

[Freeswitch SVN]

Author: anthm
Date: Sat Nov 18 20:09:10 2006
New Revision: 3410

Modified:
   freeswitch/trunk/src/mod/languages/mod_perl/mod_perl.c
   freeswitch/trunk/src/switch_swig.c

Log:
update

Modified: freeswitch/trunk/src/mod/languages/mod_perl/mod_perl.c
==============================================================================
--- freeswitch/trunk/src/mod/languages/mod_perl/mod_perl.c	(original)
+++ freeswitch/trunk/src/mod/languages/mod_perl/mod_perl.c	Sat Nov 18 20:09:10 2006
@@ -118,7 +118,6 @@
 	
 	if (!(my_perl = perl_alloc())) {
 		switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_ERROR, "Could not allocate perl intrepreter\n");
-		switch_core_destroy();
 		return SWITCH_STATUS_MEMERR;
 	}
 	switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_INFO, "Allocated perl intrepreter.\n");

Modified: freeswitch/trunk/src/switch_swig.c
==============================================================================
--- freeswitch/trunk/src/switch_swig.c	(original)
+++ freeswitch/trunk/src/switch_swig.c	Sat Nov 18 20:09:10 2006
@@ -64,7 +64,7 @@
 {
 	switch_status_t status;
 
-	status = switch_core_destroy();
+	status = switch_core_destroy(0);
 
 	return status == SWITCH_STATUS_SUCCESS ? 1 : 0;
 }