From 21b1fc00b47b7e87f71506f0ddbc367456f3f270 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 5 Aug 2003 14:11:02 +0000
Subject: checking transaction allow ordering them ;-)

---
 perl-install/pkgs.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 8d1c07023..6d8d74c03 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -998,7 +998,8 @@ sub install($$$;$$) {
 			  foreach @transToInstall;
 		    }
 
-		    #$trans->order or die "error ordering package list: " . c::rpmErrorString();
+		    my @checks = $trans->check; @checks and log::l("check failed : ".join("\n               ", @checks));
+		    $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