git.shiar.nl
/
minime.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b2b31fa
)
catch exiftool parse errors
author
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 10 Feb 2020 03:44:13 +0000
(
04:44
+0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 10 Feb 2020 03:44:52 +0000
(
04:44
+0100)
termimg
patch
|
blob
|
history
diff --git
a/termimg
b/termimg
index 7eccb49ba61e8bc592967ac935664e2abf4eea0b..d51790613d64346bc58439aab97beae6c80a544e 100755
(executable)
--- a/
termimg
+++ b/
termimg
@@
-5,6
+5,7
@@
my ($file, $size) = @ARGV;
my @info = eval {
require Image::ExifTool;
my $exif = Image::ExifTool->new->ImageInfo($file);
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)" : (),
return (
$exif->{MIMEType},
$exif->{ImageSize} ? "$exif->{ImageSize} ($exif->{Megapixels}MP)" : (),
@@
-35,7
+36,8
@@
my @info = eval {
(map "> $_", $exif->{'Description-nl'} // ()),
$exif->{Warning} ? "! $exif->{Warning}" : (),
);
(map "> $_", $exif->{'Description-nl'} // ()),
$exif->{Warning} ? "! $exif->{Warning}" : (),
);
-} or warn $@;
+};
+warn $@ if $@;
my $filesize = (stat $file)[7];
eval {
my $filesize = (stat $file)[7];
eval {