We want the human-readable values for the EXIF stuff, not the machine-readable

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

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 4229829ff29ff5643e152b7a50dea655a1701feb..b00810e610d721af181f0db3517f43aa45d5c66f 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -259,9 +259,9 @@ sub update_image_info {
                }
 
                # Model/Lens
-               my $model = $exiftool->GetValue('Model', 'ValueConv');
-               my $lens = $exiftool->GetValue('Lens', 'ValueConv');
-               $lens = $exiftool->GetValue('LensSpec', 'ValueConv') if (!defined($lens));
+               my $model = $exiftool->GetValue('Model', 'PrintConv');
+               my $lens = $exiftool->GetValue('Lens', 'PrintConv');
+               $lens = $exiftool->GetValue('LensSpec', 'PrintConv') if (!defined($lens));
 
                $model =~ s/^\s*//;
                $model =~ s/\s*$//;