my @info = eval {
require Image::ExifTool;
my $exif = Image::ExifTool->new->ImageInfo($file);
+ die "exiftool: $exif->{Error}\n" if $exif->{Error};
return (
$exif->{MIMEType},
$exif->{ImageSize} ? "$exif->{ImageSize} ($exif->{Megapixels}MP)" : (),
(map "> $_", $exif->{'Description-nl'} // ()),
$exif->{Warning} ? "! $exif->{Warning}" : (),
);
-} or warn $@;
+};
+warn $@ if $@;
my $filesize = (stat $file)[7];
eval {