Imported Upstream version 3.3.2

[debian/amanda] / perl / Amanda / Util.c

diff --git a/perl/Amanda/Util.c b/perl/Amanda/Util.c
index 164245d8d8cc8241978aca9fd049895eeb0e88bc..4357d9f5b1b91862ece2e202217d206de16549fd 100644 (file)
--- a/perl/Amanda/Util.c
+++ b/perl/Amanda/Util.c
@@ -2063,6 +2063,7 @@ XS(_wrap_sanitise_filename) {
     result = (char *)sanitise_filename(arg1);
     ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
+    free((char*)result);
     XSRETURN(argvi);
   fail:
     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
@@ -2092,6 +2093,7 @@ XS(_wrap_quote_string) {
     result = (char *)quote_string(arg1);
     ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
+    free((char*)result);
     XSRETURN(argvi);
   fail:
     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
@@ -2121,6 +2123,7 @@ XS(_wrap_unquote_string) {
     result = (char *)unquote_string(arg1);
     ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
+    free((char*)result);
     XSRETURN(argvi);
   fail:
     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);
@@ -2249,8 +2252,10 @@ XS(_wrap_split_quoted_strings) {
         
         for (iter = result; *iter; iter++) {
           ST(argvi) = sv_2mortal(newSVpv(*iter, 0));
+          g_free(*iter);
           argvi++;
         }
+        g_free(result);
       }
     }
     if (alloc1 == SWIG_NEWOBJ) free((char*)buf1);