summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-18 14:38:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-18 14:38:41 +0000
commit55d44a1b5c6e4d2f45d365fe7680aa619c831506 (patch)
tree79acc6af53dc612896b99f3e218569c5ca9892f6 /perl-install/pkgs.pm
parent9e8dbe6e3b60bfd65346d5fa6c11b4723599aebb (diff)
downloaddrakx-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar
drakx-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar.gz
drakx-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar.bz2
drakx-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar.xz
drakx-55d44a1b5c6e4d2f45d365fe7680aa619c831506.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 7eb9ede5b..936831380 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -870,7 +870,6 @@ sub install($$$;$$) {
$fd ? fileno $fd : -1;
};
my $callbackClose = sub { packageSetFlagInstalled(delete $packages{$_[0]}, 1) };
- my $callbackInstall = sub { &installCallback };
#- do not modify/translate the message used with installCallback since
#- these are keys during progressing installation, or change in other
@@ -988,7 +987,6 @@ sub install($$$;$$) {
c::headerFree(delete $_->{header}) foreach @transToInstall;
cleanHeaders($prefix);
- #- check for uninstalled package, avoid keeping them selected to avoid trying installing them again!
if (my @badpkgs = grep { !packageFlagInstalled($_) } @transToInstall) {
foreach (@badpkgs) {
log::l("bad package $_->{file}");
@@ -998,6 +996,8 @@ sub install($$$;$$) {
}
} while ($nb > 0 && !$pkgs::cancel_install);
+ cleanHeaders($prefix);
+
loopback::save_boot($loop_boot);
}