From: Arnar Mar Hrafnkelsson <addi@cpan.org>
Date: Fri, 2 Nov 2001 12:01:47 +0000 (+0000)
Subject: Fixed missing myfree() in bmp.c.
X-Git-Tag: Imager-0.48^2~492
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/4b0f812ce183aaecec58ab6056592dbb97acdbb3

Fixed missing myfree() in bmp.c.
---

diff --git a/bmp.c b/bmp.c
index 6c9faea6..fdc542cc 100644
--- a/bmp.c
+++ b/bmp.c
@@ -654,6 +654,8 @@ read_1bit_bmp(io_glue *ig, int xsize, int ysize, int clr_used) {
     y += yinc;
   }
 
+  myfree(packed);
+  myfree(line);
   return im;
 }
 
@@ -726,6 +728,8 @@ read_4bit_bmp(io_glue *ig, int xsize, int ysize, int clr_used,
       i_ppal(im, 0, xsize, y, line);
       y += yinc;
     }
+    myfree(packed);
+    myfree(line);
   }
   else if (compression == BI_RLE4) {
     int read_size;