From: Steinar H. Gunderson <sesse@debian.org>
Date: Mon, 26 Mar 2007 18:24:44 +0000 (+0200)
Subject: Check ExposureCompensation for exposure bias values; I don't know if this
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=5b3eddb776fdf70189bcd480a9334700bfa7572f

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.
---

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);