From 0c77eeabed86bbe54662d435016d7290ffd74141 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 5 Sep 1999 23:02:56 +0000
Subject: no_comment

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

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 4b07450a3..a8ac65d58 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -290,6 +290,12 @@ sub install {
 
     if (my @probs = c::rpmRunTransactions($trans, $callbackOpen, $callbackClose, 
 					  $callbackStart, $callbackProgress, $force)) {
+	my %parts;
+	@probs = reverse grep {
+	    if (s/(installing package) .* (needs (?:.*) on the (.*) filesystem)/$1 $2/) {
+		$parts{$3} ? 0 : ($parts{$3} = 1);
+	    } else { 1; }
+	} reverse @probs;
 	die "installation of rpms failed:\n  ", join("\n  ", @probs);
     }
     c::rpmtransFree($trans); 
-- 
cgit v1.2.1