Imported Upstream version 3.3.2

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

diff --git a/perl/Amanda/Tapelist.c b/perl/Amanda/Tapelist.c
index 1800253a9ada921396e2caeabbfe82f4bc81339c..611b085e0f60f4cdb5f1ad291d0e03cccd7493de 100644 (file)
--- a/perl/Amanda/Tapelist.c
+++ b/perl/Amanda/Tapelist.c
@@ -1851,6 +1851,7 @@ XS(_wrap_list_new_tapes) {
     result = (char *)list_new_tapes(arg1);
     ST(argvi) = SWIG_FromCharPtr((const char *)result); argvi++ ;
     
+    free((char*)result);
     XSRETURN(argvi);
   fail: