From 04014e47755312bb500b28fc10153dd38eeb7131 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 12 Aug 2009 12:33:02 -0400 Subject: inline: Avoid use of my $_ as it fails with older perls. Closes: #541215 --- IkiWiki/Plugin/inline.pm | 6 ++---- debian/changelog | 2 ++ 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/IkiWiki/Plugin/inline.pm b/IkiWiki/Plugin/inline.pm index e7d6f250e..04ad6ed23 100644 --- a/IkiWiki/Plugin/inline.pm +++ b/IkiWiki/Plugin/inline.pm @@ -186,7 +186,6 @@ sub preprocess_inline (@) { my @list; if (exists $params{pagenames}) { - foreach my $p (qw(sort pages)) { if (exists $params{$p}) { error sprintf(gettext("the %s and %s parameters cannot be used together"), @@ -194,9 +193,8 @@ sub preprocess_inline (@) { } } - @list = split ' ', $params{pagenames}; - my $_; - @list = map { bestlink($params{page}, $_) } @list; + @list = map { bestlink($params{page}, $_) } + split ' ', $params{pagenames}; $params{pages} = join(" or ", @list); } diff --git a/debian/changelog b/debian/changelog index 95e3905a3..ed7854e8a 100644 --- a/debian/changelog +++ b/debian/changelog @@ -2,6 +2,8 @@ ikiwiki (3.141593) UNRELEASED; urgency=low * po: Detect if nowrapi18n can't be passed to po4a, and warn about the old version, but continue. Closes: #541205 + * inline: Avoid use of my $_ as it fails with older perls. + Closes: #541215 -- Joey Hess Wed, 12 Aug 2009 12:25:30 -0400 -- cgit v1.2.3