Check ExposureCompensation for exposure bias values; I don't know if this
authorSteinar H. Gunderson <sesse@debian.org>
Mon, 26 Mar 2007 18:24:44 +0000 (20:24 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Mon, 26 Mar 2007 18:24:44 +0000 (20:24 +0200)
has something to do with my camera or with the change to Image::ExifTool,
but at least it should work properly now.

perl/Sesse/pr0n/Common.pm

index a43c50af72c2b0b8974521765c171ba3c32e3487..9e56cee8397834b65946cba9bfe32a3584260b26 100644 (file)
@@ -465,7 +465,11 @@ sub make_infobox {
                push @classic_fields, $info->{'ISOSetting'} . " ISO";
        }
 
-       push @classic_fields, $info->{'ExposureBiasValue'} . " EV" if (defined($info->{'ExposureBiasValue'}) && $info->{'ExposureBiasValue'} != 0);
+       if (defined($info->{'ExposureBiasValue'}) && $info->{'ExposureBiasValue'} != 0) {
+               push @classic_fields, $info->{'ExposureBiasValue'} . " EV";
+       } elsif (defined($info->{'ExposureCompensation'}) && $info->{'ExposureCompensation'} != 0) {
+               push @classic_fields, $info->{'ExposureCompensation'} . " EV";
+       }
        
        if (scalar @classic_fields > 0) {
                push @lines, join(', ', @classic_fields);