X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FCommon.pm;h=9708b7a116591feea37e5cb063ef543ad22b4179;hp=93e6c699b8f3231ab132ae10e6cc326a1efecad2;hb=4ba860dbf5ce3e4d84c2ba2f7ee2c54ffcd18966;hpb=1af10685072b55487ad3066851edc9cd992f8f5a diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm index 93e6c69..9708b7a 100644 --- a/perl/Sesse/pr0n/Common.pm +++ b/perl/Sesse/pr0n/Common.pm @@ -35,7 +35,7 @@ BEGIN { require Sesse::pr0n::Config_local; }; - $VERSION = "v2.51"; + $VERSION = "v2.53"; @ISA = qw(Exporter); @EXPORT = qw(&error &dberror); %EXPORT_TAGS = qw(); @@ -392,7 +392,7 @@ sub ensure_cached { # ImageMagick can handle NEF files, but it does it by calling dcraw as a delegate. # The delegate support is rather broken and causes very odd stuff to happen when # more than one thread does this at the same time. Thus, we simply do it ourselves. - if ($filename =~ /\.nef$/) { + if ($filename =~ /\.nef$/i) { # this would suffice if ImageMagick gets to fix their handling # $fname = "NEF:$fname"; @@ -561,6 +561,8 @@ sub make_infobox { push @classic_fields, [ $info->{'NikonD1-ISOSetting'}->[1] . " ISO", 0 ]; } elsif (defined($info->{'ISOSetting'})) { push @classic_fields, [ $info->{'ISOSetting'} . " ISO" ]; + } elsif (defined($info->{'ISO'})) { + push @classic_fields, [ $info->{'ISO'} . " ISO" ]; } if (defined($info->{'ExposureBiasValue'}) && $info->{'ExposureBiasValue'} ne "0") {