projects
/
pr0n
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0da0f89
)
Strip leading and trailing blanks from the model in the infobox.
author
Steinar H. Gunderson
<sesse@debian.org>
Mon, 31 Jul 2006 15:08:18 +0000
(17:08 +0200)
committer
Steinar H. Gunderson
<sesse@debian.org>
Mon, 31 Jul 2006 15:08:18 +0000
(17:08 +0200)
perl/Sesse/pr0n/Common.pm
patch
|
blob
|
history
diff --git
a/perl/Sesse/pr0n/Common.pm
b/perl/Sesse/pr0n/Common.pm
index 8fe17d738f7b9300dda864abe45e6de6bd17a0ea..6bcc538307f1fe9b4dbcab61dc50ac8858157092 100644
(file)
--- 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)?$/) {