| Subject: | Endless loop on some files |
On some files ExtractInfo eats CPU in endless loop.
Test case in attach.
$ perl -v
This is perl, v5.8.8 built for i386-freebsd-64int
$ uname -srp
FreeBSD 6.3-RELEASE-p2 i386
Image::ExifTool version - 7.51
| Subject: | ttt5.pl |
#!/usr/bin/perl
use strict;
use warnings;
use Image::ExifTool;
my $data_ref = read_file('x_7171d725.jpg');
my $exifTool = new Image::ExifTool;
$exifTool->ExtractInfo( $data_ref, { FastScan => 1 } );
sub read_file {
my ($file) = @_;
open(IN, $file) or die "Can't open $file: $!";
local $/;
my $content = <IN>;
close IN;
return \$content;
}
| Subject: | x_7171d725.jpg |