diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-08-05 12:22:11 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-08-05 12:22:11 +0000 |
| commit | d82e8f5b66102ba99012951acfa4e96b6d08ebd9 (patch) | |
| tree | b5fec269069eddee191024c16257da4504419cca /perl-install | |
| parent | e79671ae6ad163a987cab22b472fda44e7ba8faa (diff) | |
| download | drakx-d82e8f5b66102ba99012951acfa4e96b6d08ebd9.tar drakx-d82e8f5b66102ba99012951acfa4e96b6d08ebd9.tar.gz drakx-d82e8f5b66102ba99012951acfa4e96b6d08ebd9.tar.bz2 drakx-d82e8f5b66102ba99012951acfa4e96b6d08ebd9.tar.xz drakx-d82e8f5b66102ba99012951acfa4e96b6d08ebd9.zip | |
fixed ordering of packages.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index a806cb7ab..19a9fc3a6 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -881,7 +881,7 @@ sub installTransactionClosure { keys %closure >= $limitMinTrans and last; } - map { delete $id2pkg->{$_} } grep { $id2pkg->{$_} } keys %closure; + map { delete $id2pkg->{$_} } grep { $id2pkg->{$_} } sort { $a <=> $b } keys %closure; } sub installCallback { @@ -996,7 +996,7 @@ sub install($$$;$$) { foreach @transToInstall; } - #$trans->order or die "error ordering package list: " . c::rpmErrorString(); + $trans->order or die "error ordering package list: " . c::rpmErrorString(); $trans->set_script_fd(fileno $LOG); log::l("rpm transactions start"); |