Image::Info

Perl

たまに&Image::Info::image_infoでエラーになるjpegがあるなぁ。

use Image::Info qw/image_info/;

$_ = 'foo.jpg';

my $info = image_info $_;
die "$_: $info->{error}\n" if $info->{error};

こんなコードを走らせると、

foo.jpg: substr out side of string at C:/Perl/site/lib/Image/TIFF.pm line 821.

こういうエラーで死んじゃう。とりあえず今はこういうエラーになるファイルはスキップしてるけど、ちょっとどうにかしたいなぁ。人の手をかけるのは最小限にしたいしね。ていうか、jpeg読ませてるのにどうしてImage::TIFFで引っかかってるんだろう。