diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-18 14:38:41 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-18 14:38:41 +0000 |
| commit | 55d44a1b5c6e4d2f45d365fe7680aa619c831506 (patch) | |
| tree | 79acc6af53dc612896b99f3e218569c5ca9892f6 /perl-install/pkgs.pm | |
| parent | 9e8dbe6e3b60bfd65346d5fa6c11b4723599aebb (diff) | |
| download | drakx-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.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); } |