avoid a warning during testing on 5.22+

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

diff --git a/t/200-file/300-raw.t b/t/200-file/300-raw.t
index 52ab8501e1aeb129c2dc6132ea294bef017ef490..ed92efe23b794faff4005a94080f6b91f4071c49 100644 (file)
--- a/t/200-file/300-raw.t
+++ b/t/200-file/300-raw.t
@@ -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+
   }
 }