From: Steinar H. Gunderson <sesse@debian.org>
Date: Mon, 31 Jul 2006 15:08:18 +0000 (+0200)
Subject: Strip leading and trailing blanks from the model in the infobox.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=1fd1cd288c346694970ba7f71677def55c403425

Strip leading and trailing blanks from the model in the infobox.
---

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index 8fe17d7..6bcc538 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -393,7 +393,12 @@ sub make_infobox {
 		push @lines, "$1-$2-$3 $4:$5";
 	}
 
-	push @lines, $info->{'Model'} if (defined($info->{'Model'}));
+	if (defined($info->{'Model'})) {
+		my $model = $info->{'Model'}; 
+		$model =~ s/^\s+//;
+		$model =~ s/\s+$//;
+		push @lines, $model;
+	}
 	
 	# classic fields
 	if (defined($info->{'FocalLength'}) && $info->{'FocalLength'} =~ /^(\d+)(?:\.\d+)?(?:mm)?$/) {