summaryrefslogtreecommitdiffstats
path: root/urpm/get_pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm/get_pkgs.pm')
-rw-r--r--urpm/get_pkgs.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/urpm/get_pkgs.pm b/urpm/get_pkgs.pm
index db1df5a2..b632839f 100644
--- a/urpm/get_pkgs.pm
+++ b/urpm/get_pkgs.pm
@@ -178,18 +178,18 @@ sub download_packages_of_distant_media {
my %blist_distant = (%$blist, list => {});
#- examine all files to know what can be indexed on multiple media.
- while (my ($i, $url) = each %{$blist->{list}}) {
+ while (my ($id, $url) = each %{$blist->{list}}) {
#- the given URL is trusted, so the file can safely be ignored.
- defined $sources->{$i} and next;
+ defined $sources->{$id} and next;
my $local_file = file_from_local_url($url);
if ($local_file && $local_file =~ /\.rpm$/) {
if (-r $local_file) {
- $sources->{$i} = $local_file;
+ $sources->{$id} = $local_file;
} else {
- $errors{$i} = [ $local_file, 'missing' ];
+ $errors{$id} = [ $local_file, 'missing' ];
}
} elsif ($url =~ m!^([^:]*):/(.*/([^/]*\.rpm))\Z!) {
- $blist_distant{list}{$i} = "$1:/$2"; #- will download now
+ $blist_distant{list}{$id} = "$1:/$2"; #- will download now
} else {
$urpm->{error}(N("malformed URL: [%s]", $url));
}
@@ -237,7 +237,7 @@ sub _download_packages_of_distant_media {
#- is necessary to keep track of failing downloads in order to
#- present the error to the user.
foreach my $id (keys %{$blist->{list}}) {
- my $url = $blist->{list}{$i};
+ my $url = $blist->{list}{$id};
my ($filename) = $url =~ m|/([^/]*\.rpm)$|;
if ($filename && -s "$cachedir/partial/$filename") {
if (my $rpm = verify_partial_rpm_and_move($urpm, $cachedir, $filename)) {