Bump version to 2.53.

[pr0n] / perl / Sesse / pr0n / Common.pm

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 93e6c699b8f3231ab132ae10e6cc326a1efecad2..9708b7a116591feea37e5cb063ef543ad22b4179 100644 (file)
--- 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") {