avoid a warning during testing on 5.22+
authorTony Cook <tony@develop-help.com>
Thu, 29 Oct 2015 23:33:54 +0000 (10:33 +1100)
committerTony Cook <tony@develop-help.com>
Thu, 29 Oct 2015 23:33:54 +0000 (10:33 +1100)
the code puts a file handle into an error state, which confuses the
new diagnostic that triggers when we fail to close a handle implicitly

t/200-file/300-raw.t

index 52ab850..ed92efe 100644 (file)
@@ -186,6 +186,7 @@ SKIP:
     ok(!$im->read(fh => \*RAW, , xsize => 50, ysize=>50, type=>'raw', interleave => 1),
        'read a file open for write');
     cmp_ok($im->errstr, '=~', '^error reading file: read\(\) failure', "check message");
+    close RAW; # avoid a message on 5.22+
   }
 }