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 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'IkiWiki/Plugin') 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); } -- cgit v1.2.3