Strip leading and trailing blanks from the model in the infobox.
authorSteinar H. Gunderson <sesse@debian.org>
Mon, 31 Jul 2006 15:08:18 +0000 (17:08 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Mon, 31 Jul 2006 15:08:18 +0000 (17:08 +0200)
perl/Sesse/pr0n/Common.pm

index 8fe17d738f7b9300dda864abe45e6de6bd17a0ea..6bcc538307f1fe9b4dbcab61dc50ac8858157092 100644 (file)
@@ -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)?$/) {