diff options
| author | Joey Hess <joey@gnu.kitenet.net> | 2009-08-12 12:33:02 -0400 |
|---|---|---|
| committer | Joey Hess <joey@gnu.kitenet.net> | 2009-08-12 12:33:02 -0400 |
| commit | 04014e47755312bb500b28fc10153dd38eeb7131 (patch) | |
| tree | f132258c36f431f2dc316fc211ec9695cce95ad6 /IkiWiki | |
| parent | b4d7dfcbe1e7ea62f1c25e0534feee58720397ac (diff) | |
| download | ikiwiki-04014e47755312bb500b28fc10153dd38eeb7131.tar ikiwiki-04014e47755312bb500b28fc10153dd38eeb7131.tar.gz | |
inline: Avoid use of my $_ as it fails with older perls. Closes: #541215
Diffstat (limited to 'IkiWiki')
| -rw-r--r-- | IkiWiki/Plugin/inline.pm | 6 |
1 files changed, 2 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); } |