Fix a warning.
authorSteinar H. Gunderson <sesse@debian.org>
Sun, 5 Aug 2007 08:58:23 +0000 (10:58 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Sun, 5 Aug 2007 08:58:23 +0000 (10:58 +0200)
perl/Sesse/pr0n/Common.pm

index 22e7195379744a08a783355fd08f9c8d75af1df5..e929b654d998e8674fd141d9f0a62592d70415f1 100644 (file)
@@ -551,7 +551,7 @@ sub make_infobox {
                push @classic_fields, $info->{'ISOSetting'} . " ISO";
        }
 
-       if (defined($info->{'ExposureBiasValue'}) && $info->{'ExposureBiasValue'} != 0) {
+       if (defined($info->{'ExposureBiasValue'}) && $info->{'ExposureBiasValue'} ne "0") {
                push @classic_fields, $info->{'ExposureBiasValue'} . " EV";
        } elsif (defined($info->{'ExposureCompensation'}) && $info->{'ExposureCompensation'} != 0) {
                push @classic_fields, $info->{'ExposureCompensation'} . " EV";