summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-09-29 14:18:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-09-29 14:18:09 +0000
commitb5bc676d61e1e5f1f1840e8723f81dc24c344f98 (patch)
tree6f4c9dccdd4ab049e3a04ec242503bb64c4f988d /perl-install/install_any.pm
parent008c48568c58665dcd4542f653f69bded0187dea (diff)
downloaddrakx-backup-do-not-use-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar
drakx-backup-do-not-use-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar.gz
drakx-backup-do-not-use-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar.bz2
drakx-backup-do-not-use-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar.xz
drakx-backup-do-not-use-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.zip
perl_checker fixes
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 6032d5a31..e646d3930 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -504,7 +504,7 @@ sub install_urpmi {
$packages->parse_pubkeys(db => $db);
foreach my $medium (values %$mediums) {
$packages->import_needed_pubkeys($medium->{pubkey}, db => $db, callback => sub {
- my (undef, undef, $k, $id, $imported) = @_;
+ my (undef, undef, $_k, $id, $imported) = @_;
if ($id) {
log::l(($imported ? "imported" : "found")." key=$id for medium $medium->{descr}");
$medium->{key_ids}{$id} = undef;
@@ -586,7 +586,7 @@ sub install_urpmi {
list: list.$name" : "") . (keys(%{$_->{key_ids}}) ? "
key-ids: " . join(',', keys(%{$_->{key_ids}})) : "") . ($dir =~ /removable:/ && "
removable: /dev/cdrom") . ($_->{update} ? "
- update" : ""). "
+ update" : "") . "
}
";