diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-09-29 14:18:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-09-29 14:18:09 +0000 |
| commit | b5bc676d61e1e5f1f1840e8723f81dc24c344f98 (patch) | |
| tree | 6f4c9dccdd4ab049e3a04ec242503bb64c4f988d /perl-install/install_any.pm | |
| parent | 008c48568c58665dcd4542f653f69bded0187dea (diff) | |
| download | drakx-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar drakx-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar.gz drakx-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar.bz2 drakx-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.tar.xz drakx-b5bc676d61e1e5f1f1840e8723f81dc24c344f98.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 4 |
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" : "") . " } "; |