diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-07-08 18:25:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-07-08 18:25:21 +0000 |
| commit | 5ee0b581848c4ddde43e1a4e730dc10b34dc9378 (patch) | |
| tree | 15a001b671b6db153873fdfbbd3c466e129fc136 /urpm/get_pkgs.pm | |
| parent | e2367682f825f7375400764e9c24b13c622472ee (diff) | |
| download | urpmi-5ee0b581848c4ddde43e1a4e730dc10b34dc9378.tar urpmi-5ee0b581848c4ddde43e1a4e730dc10b34dc9378.tar.gz urpmi-5ee0b581848c4ddde43e1a4e730dc10b34dc9378.tar.bz2 urpmi-5ee0b581848c4ddde43e1a4e730dc10b34dc9378.tar.xz urpmi-5ee0b581848c4ddde43e1a4e730dc10b34dc9378.zip | |
rename $i to $id to make it clear
Diffstat (limited to 'urpm/get_pkgs.pm')
| -rw-r--r-- | urpm/get_pkgs.pm | 12 |
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)) { |