summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
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);
}