update

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

diff --git a/src/mod/languages/mod_perl/mod_perl.c b/src/mod/languages/mod_perl/mod_perl.c
index 7754d35b49c96609ad9408403ecb9b9113089c1c..95eb19a0e9f70112d046011bcaad8cf4f2b505f6 100644 (file)
--- a/src/mod/languages/mod_perl/mod_perl.c
+++ b/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");

diff --git a/src/switch_swig.c b/src/switch_swig.c
index 3dd685ee28abcba8fec8d578ac526b728a1dc7eb..a52299d7f5442d1fb6d9211a148fc09f3bd53e4c 100644 (file)
--- a/src/switch_swig.c
+++ b/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;
 }