had broken handing for the giflib version
authorTony Cook <tony@develop=help.com>
Thu, 26 Apr 2001 05:24:46 +0000 (05:24 +0000)
committerTony Cook <tony@develop=help.com>
Thu, 26 Apr 2001 05:24:46 +0000 (05:24 +0000)
t/t105gif.t

index f6e63b1fcb926dd1c38fb473fa8f758097fa0c6a..a11b04f4043cf8ffb4aa65d81f2c4dc9176aaec1 100644 (file)
@@ -87,9 +87,7 @@ if (!i_has_format("gif")) {
       print "not ok 6\n";
     }
 
-    my $gifvertext = Imager::i_giflib_version();
-    $gifvertext =~ /(\d+\.\d+)/;
-    my $gifver = $1 || 0;
+    my $gifver = Imager::i_giflib_version();
     if ($gifver >= 4.0) {
       # reading with a callback
       # various sizes to make sure the buffering works
@@ -282,6 +280,7 @@ EOS
     else {
       print "ok 18 # ",Imager::_error_as_msg(),"\n";
     }
+    close FH;
 
     # try to save no images :)
     open FH, ">testout/t105_none.gif"