GIF: avoid leaving trash behind when the 4.2.0 version bug fails
authorTony Cook <tony@develop-help.com>
Sat, 22 Nov 2014 02:01:06 +0000 (02:01 +0000)
committerTony Cook <tony@develop-help.com>
Sat, 22 Nov 2014 02:01:06 +0000 (02:01 +0000)
GIF/Changes
GIF/GIF.pm
GIF/Makefile.PL

index 20f8598..bdd6cd8 100644 (file)
@@ -1,3 +1,9 @@
+Imager-File-GIF 0.89
+====================
+
+ - don't leave a test file behind when probing for the 4.2.0 file
+   version bug fails.
+
 Imager-File-GIF 0.89
 ====================
 
index 8032d8f..5c5088b 100644 (file)
@@ -4,7 +4,7 @@ use Imager;
 use vars qw($VERSION @ISA);
 
 BEGIN {
-  $VERSION = "0.89";
+  $VERSION = "0.90";
 
   require XSLoader;
   XSLoader::load('Imager::File::GIF', $VERSION);
index 8ac2040..3eee679 100644 (file)
@@ -221,11 +221,11 @@ for (mode = 0; mode < 2; ++mode) {
     return 1;
   }
   fclose(fh);
+  remove("probe.gif");
   if (memcmp(buf, mode ? "GIF89a" : "GIF87a", 6)) {
     fprintf(stderr, "GIF: incorrect header on test - 4.2.0 bug? (mode %d, buf %-6s)\n", mode, buf);
     return 1;
   }
-  remove("probe.gif");
 }
 
 fprintf(stderr, "GIF: Major %d, Minor %d\n", ver_maj, ver_min);