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"),
}
}
- @list = split ' ', $params{pagenames};
- my $_;
- @list = map { bestlink($params{page}, $_) } @list;
+ @list = map { bestlink($params{page}, $_) }
+ split ' ', $params{pagenames};
$params{pages} = join(" or ", @list);
}
* 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