summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-08-05 12:22:11 +0000
committerFrancois Pons <fpons@mandriva.com>2003-08-05 12:22:11 +0000
commitd82e8f5b66102ba99012951acfa4e96b6d08ebd9 (patch)
treeb5fec269069eddee191024c16257da4504419cca /perl-install/pkgs.pm
parente79671ae6ad163a987cab22b472fda44e7ba8faa (diff)
downloaddrakx-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/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm4
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");