Revision

14557

Author

mrene

Date

2009-08-18 13:55:47 -0500 (Tue, 18 Aug 2009)

Log Message

reswig

Modified Paths

• freeswitch/trunk/src/mod/languages/mod_managed/freeswitch_wrap.cxx
• freeswitch/trunk/src/mod/languages/mod_perl/mod_perl_wrap.cpp

Diff

--- freeswitch/trunk/src/mod/languages/mod_managed/freeswitch_wrap.cxx	2009-08-18 18:32:11 UTC (rev 14556)
+++ freeswitch/trunk/src/mod/languages/mod_managed/freeswitch_wrap.cxx	2009-08-18 18:55:47 UTC (rev 14557)
@@ -24282,8 +24282,9 @@
   arg1 = (switch_log_node_t *)jarg1; 
   arg2 = (char *)jarg2; 
   {
+    if (arg1->userdata) delete [] arg1->userdata;
     if (arg2) {
-      arg1->userdata = (char const *) (new char[strlen((const char *)arg2)+1]);
+      arg1->userdata = (char *) (new char[strlen((const char *)arg2)+1]);
       strcpy((char *)arg1->userdata, (const char *)arg2);
     } else {
       arg1->userdata = 0;

--- freeswitch/trunk/src/mod/languages/mod_perl/mod_perl_wrap.cpp	2009-08-18 18:32:11 UTC (rev 14556)
+++ freeswitch/trunk/src/mod/languages/mod_perl/mod_perl_wrap.cpp	2009-08-18 18:55:47 UTC (rev 14557)
@@ -11562,17 +11562,17 @@
   SWIG_TypeClientData(SWIGTYPE_p_IVRMenu, (void*) "freeswitch::IVRMenu");
   SWIG_TypeClientData(SWIGTYPE_p_API, (void*) "freeswitch::API");
   SWIG_TypeClientData(SWIGTYPE_p_input_callback_state, (void*) "freeswitch::input_callback_state_t");
-  /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do {
+  /*@SWIG:/usr/share/swig1.3/perl5/perltypemaps.swg,64,%set_constant@*/ do {
     SV *sv = get_sv((char*) SWIG_prefix "S_HUP", TRUE | 0x2 | GV_ADDMULTI);
     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1(static_cast< int >(S_HUP)));
     SvREADONLY_on(sv);
   } while(0) /*@SWIG@*/;
-  /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do {
+  /*@SWIG:/usr/share/swig1.3/perl5/perltypemaps.swg,64,%set_constant@*/ do {
     SV *sv = get_sv((char*) SWIG_prefix "S_FREE", TRUE | 0x2 | GV_ADDMULTI);
     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1(static_cast< int >(S_FREE)));
     SvREADONLY_on(sv);
   } while(0) /*@SWIG@*/;
-  /*@SWIG:/usr/share/swig/1.3.35/perl5/perltypemaps.swg,64,%set_constant@*/ do {
+  /*@SWIG:/usr/share/swig1.3/perl5/perltypemaps.swg,64,%set_constant@*/ do {
     SV *sv = get_sv((char*) SWIG_prefix "S_RDLOCK", TRUE | 0x2 | GV_ADDMULTI);
     sv_setsv(sv, SWIG_From_int  SWIG_PERL_CALL_ARGS_1(static_cast< int >(S_RDLOCK)));
     SvREADONLY_on(sv);