- don't destroy image before creating it in error handling in bmp.c

diff --git a/Changes b/Changes
index 80fac2d8a8c34c851e3793e6e085e6d9bd7ba0a0..e9dacdeed63ff93c6d348b8ce970d9460d462299 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1244,6 +1244,7 @@ Revision history for Perl extension Imager.
 
 0.47_01
 - set the locale to "C" properly when testing ft1.x error messages
+- don't destroy image before creating it in error handling in bmp.c
 
 =================================================================
 

diff --git a/bmp.c b/bmp.c
index b4e92e07f59cef03dc59f0027ca57e59173c600a..8e1e4228e91fc45e911e95b73dee4f12b7b4c43a 100644 (file)
--- a/bmp.c
+++ b/bmp.c
@@ -1217,7 +1217,6 @@ read_direct_bmp(io_glue *ig, int xsize, int ysize, int bit_count,
     char buffer;
     while (base_offset < offbits) {
       if (ig->readcb(ig, &buffer, 1) != 1) {
-        i_img_destroy(im);
         i_push_error(0, "failed skipping to image data offset");
         return NULL;
       }