diff options
author | Francois Pons <fpons@mandriva.com> | 2000-09-25 16:36:39 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2000-09-25 16:36:39 +0000 |
commit | 7ccbfafd4dba68f1005e5d121150b5cbb54e302d (patch) | |
tree | dcf950796c35905211e67776c2d5bfbf7d758c3b /urpme | |
parent | f0085d087040f3801cfa500b4db57ea618ca9544 (diff) | |
download | urpmi-7ccbfafd4dba68f1005e5d121150b5cbb54e302d.tar urpmi-7ccbfafd4dba68f1005e5d121150b5cbb54e302d.tar.gz urpmi-7ccbfafd4dba68f1005e5d121150b5cbb54e302d.tar.bz2 urpmi-7ccbfafd4dba68f1005e5d121150b5cbb54e302d.tar.xz urpmi-7ccbfafd4dba68f1005e5d121150b5cbb54e302d.zip |
*** empty log message ***
Diffstat (limited to 'urpme')
-rw-r--r-- | urpme | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -71,11 +71,17 @@ system("rpm", "-e", @toremove); sub load_provides { local *F; - open F, "$DIR/depslist" or return; + open F, "$DIR/depslist.ordered" or return; + my @packages_id; + my %provides_id; foreach (<F>) { my ($p, $size, @l) = split; $size{$p} = $size; - push @{$provides{$_}}, $p foreach @l; + push @packages_id, $p; + push @{$provides_id{$_}}, $p foreach @l; + } + foreach (keys %provides_id) { + $provides{$packages_id[$_]} = $provides_id{$_}; } } sub toMb { |