diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-05 23:02:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-05 23:02:56 +0000 |
| commit | 0c77eeabed86bbe54662d435016d7290ffd74141 (patch) | |
| tree | ba6bcfd2bdcb33e87e62c4a4f32a397211eda92c /perl-install/pkgs.pm | |
| parent | 5798823e331c86fb3f97593b0cd2820224767d15 (diff) | |
| download | drakx-0c77eeabed86bbe54662d435016d7290ffd74141.tar drakx-0c77eeabed86bbe54662d435016d7290ffd74141.tar.gz drakx-0c77eeabed86bbe54662d435016d7290ffd74141.tar.bz2 drakx-0c77eeabed86bbe54662d435016d7290ffd74141.tar.xz drakx-0c77eeabed86bbe54662d435016d7290ffd74141.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 6 |
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); |