From e9a91169694fa2de2423c8483b7fb6d75eadd61a Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 20 Aug 2003 12:37:12 +0000 Subject: disable use of $_ which could be bad. --- urpm.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'urpm.pm') diff --git a/urpm.pm b/urpm.pm index f15a0302..7f539e3e 100644 --- a/urpm.pm +++ b/urpm.pm @@ -1807,10 +1807,10 @@ this could happen if you mounted manually the directory when creating the medium $urpm->{log}(N("examining pubkey file of \"%s\"...", $medium->{name})); my %key_ids; eval { - foreach ($urpm->parse_armored_file("$urpm->{cachedir}/partial/pubkey")) { + foreach my $k ($urpm->parse_armored_file("$urpm->{cachedir}/partial/pubkey")) { my $id; foreach my $kv (values %{$urpm->{keys} || {}}) { - $kv->{content} eq $_->{content} and $key_ids{$id = $kv->{id}} = undef, last; + $kv->{content} eq $k->{content} and $key_ids{$id = $kv->{id}} = undef, last; } unless ($id) { #- the key has not been found, this is important to import it now, @@ -1820,7 +1820,7 @@ this could happen if you mounted manually the directory when creating the medium $urpm->parse_pubkeys(root => $urpm->{root}); foreach my $kv (values %{$urpm->{keys} || {}}) { - $kv->{content} eq $_->{content} and $key_ids{$id = $kv->{id}} = undef, last; + $kv->{content} eq $k->{content} and $key_ids{$id = $kv->{id}} = undef, last; } #- now id should be defined, or there is a problem to import the keys... -- cgit v1.2.1