Subject: | Image::Info fails exif and string tests with pre-5.8.0 Perl |
The tests that involve JPEGs fail with pre-5.8.0 Perls. The fix is to not call close on the IO::String object in "with_io_string".
--- lib/Image/Info/JPEG.pm~ 2002-12-30 18:03:06.000000000 -0600
+++ lib/Image/Info/JPEG.pm 2003-05-09 18:24:17.000000000 -0500
@@ -67,7 +67,6 @@
require IO::String;
local $_ = IO::String->new($_[1]);
&{$_[0]};
- $_->close;
}
EOT