diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-14 23:59:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-14 23:59:01 +0000 |
| commit | a4299593feb14ed8317da49980b8c06e59688aa2 (patch) | |
| tree | cf2fea27a2884a3205a95d5c3042cdae91be7c66 /perl-install/pkgs.pm | |
| parent | 21066f8c4d8d136cca65f7138cabb25d4b4cfe8c (diff) | |
| download | drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.gz drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.bz2 drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.xz drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 3824fb1dd..c5c4de8e8 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -919,7 +919,7 @@ sub install($$$;$$) { foreach @transToInstall; my $close = sub { -# c::headerFree(delete $_->{header}) foreach @transToInstall; + c::headerFree(delete $_->{header}) foreach @transToInstall; c::rpmtransFree($trans); }; @@ -935,12 +935,12 @@ sub install($$$;$$) { my @probs = c::rpmRunTransactions($trans, $callbackOpen, $callbackClose, \&installCallback, 0); log::l("rpmRunTransactions done"); - my @badpkgs = map { $_->{file} } grep { !packageFlagInstalled($_) } @transToInstall; - @badpkgs > 0 and - cdie "error installing package list: " . join("\n", @badpkgs), sub { - &$close(); - c::rpmdbClose($db); - }; + if (my @badpkgs = grep { !packageFlagInstalled($_) } @transToInstall) { + cdie "error installing package list: " . join("\n", map { $_->{file} } @badpkgs), sub { + &$close(); + c::rpmdbClose($db); + }; + } #- check for uninstalled package, avoid keeping them selected to avoid trying installing them foreach (@transToInstall) { if (!packageFlagInstalled($_)) { |