summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_any.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 5bf629d00..a4e9bc4ec 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -502,8 +502,8 @@ sub install_urpmi {
require URPM::Signature;
my $db = pkgs::rpmDbOpenForInstall($prefix);
$packages->parse_pubkeys(db => $db);
- foreach (values %$mediums) {
- foreach my $k (@{$_->{pubkey}}) {
+ foreach my $medium (values %$mediums) {
+ foreach my $k (@{$medium->{pubkey}}) {
my $id;
foreach my $kv (values %{$packages->{keys} || {}}) {
URPM::compare_pubkeys($k, $kv) == 0 and $id = $kv->{id}, last;
@@ -516,7 +516,7 @@ sub install_urpmi {
}
}
#- the key has been found, take care of it for the given medium.
- $id and $_->{key_ids}{$id} = undef;
+ $id and $medium->{key_ids}{$id} = undef;
}
}