Check ExposureCompensation for exposure bias values; I don't know if this

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

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index a43c50af72c2b0b8974521765c171ba3c32e3487..9e56cee8397834b65946cba9bfe32a3584260b26 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -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);