update

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@3410 d0543943-73ff-0310-b7d9-9358b9ac24b2

src/mod/languages/mod_perl/mod_perl.c

@@ -118,7 +118,6 @@ SWITCH_MOD_DECLARE(switch_status_t) switch_module_load(const switch_loadable_mod
 	
 	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");

src/switch_swig.c

@@ -64,7 +64,7 @@ int fs_core_destroy(void)
 {
 	switch_status_t status;
 
-	status = switch_core_destroy();
+	status = switch_core_destroy(0);
 
 	return status == SWITCH_STATUS_SUCCESS ? 1 : 0;
 }