X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FTapelist.c;fp=perl%2FAmanda%2FTapelist.c;h=611b085e0f60f4cdb5f1ad291d0e03cccd7493de;hb=109540caa4e37a3663b3dcfb9a205b9609e3f561;hp=1800253a9ada921396e2caeabbfe82f4bc81339c;hpb=4c9eba1feb11adf189bceb4001c425e641f0b56a;p=debian%2Famanda

diff --git a/perl/Amanda/Tapelist.c b/perl/Amanda/Tapelist.c
index 1800253..611b085 100644
--- 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: