From d82e8f5b66102ba99012951acfa4e96b6d08ebd9 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 5 Aug 2003 12:22:11 +0000
Subject: fixed ordering of packages.

---
 perl-install/pkgs.pm | 4 ++--
 1 file 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");
-- 
cgit v1.2.1