GIF: avoid leaving trash behind when the 4.2.0 version bug fails

diff --git a/GIF/Changes b/GIF/Changes
index 20f85985e4c54445def71ecaef65aa72a3adc19b..bdd6cd838f2951039f16ca674f88383496d72da2 100644 (file)
--- a/GIF/Changes
+++ b/GIF/Changes
@@ -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
 ====================
 

diff --git a/GIF/GIF.pm b/GIF/GIF.pm
index 8032d8f66b3129155e94dfe51b7ff76ab46ab79f..5c5088bbfa86ced5a0b98567cadb6b3400e64487 100644 (file)
--- a/GIF/GIF.pm
+++ b/GIF/GIF.pm
@@ -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);

diff --git a/GIF/Makefile.PL b/GIF/Makefile.PL
index 8ac20407381a87321018c0b351ffd5a20ad3b531..3eee679d2e8c517012a2695e33b98e59e93c4490 100644 (file)
--- a/GIF/Makefile.PL
+++ b/GIF/Makefile.PL
@@ -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);