diff options
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 4 |
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); } |