From 85098bb5fda94183422ec8284f6de1ad0faf57d8 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 21 Aug 2003 08:36:08 +0000
Subject: make sure other key are added to urpmi.cfg when imported.

---
 perl-install/install_any.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/install_any.pm')

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;
 	}
     }
 
-- 
cgit v1.2.1