inline: Avoid use of my $_ as it fails with older perls. Closes: #541215
parent
b4d7dfcbe1
commit
04014e4775
|
@ -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);
|
||||
}
|
||||
|
|
|
@ -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 <joeyh@debian.org> Wed, 12 Aug 2009 12:25:30 -0400
|
||||
|
||||
|
|
Loading…
Reference in New Issue