summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-05 23:02:56 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-05 23:02:56 +0000
commit0c77eeabed86bbe54662d435016d7290ffd74141 (patch)
treeba6bcfd2bdcb33e87e62c4a4f32a397211eda92c /perl-install/pkgs.pm
parent5798823e331c86fb3f97593b0cd2820224767d15 (diff)
downloaddrakx-backup-do-not-use-0c77eeabed86bbe54662d435016d7290ffd74141.tar
drakx-backup-do-not-use-0c77eeabed86bbe54662d435016d7290ffd74141.tar.gz
drakx-backup-do-not-use-0c77eeabed86bbe54662d435016d7290ffd74141.tar.bz2
drakx-backup-do-not-use-0c77eeabed86bbe54662d435016d7290ffd74141.tar.xz
drakx-backup-do-not-use-0c77eeabed86bbe54662d435016d7290ffd74141.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm6
1 files changed, 6 insertions, 0 deletions
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);