From 94f48b7b936c7958fa58a0d8dc5f3812ac1ce30d Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Wed, 22 Aug 2007 08:24:48 +0200 Subject: [PATCH] We want the human-readable values for the EXIF stuff, not the machine-readable ones. --- perl/Sesse/pr0n/Common.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm index 4229829..b00810e 100644 --- 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*$//; -- 2.39.2