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; }