From 5b3eddb776fdf70189bcd480a9334700bfa7572f Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Mon, 26 Mar 2007 20:24:44 +0200 Subject: [PATCH] Check ExposureCompensation for exposure bias values; I don't know if this 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 | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm index a43c50a..9e56cee 100644 --- 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); -- 2.39.2