diff options
| -rw-r--r-- | perl-install/NEWS | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/finish-install | 7 |
2 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index bc99c63e5..6923886fd 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,5 @@ +- allow finish-install to remove unused packages + Version 13.40 - 2 February 2011 - do not copy files which live on separate partitions within fs::any::prepare_minimal_root diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install index 09f62ab1d..3d61f39d4 100755 --- a/perl-install/standalone/finish-install +++ b/perl-install/standalone/finish-install @@ -247,6 +247,12 @@ sub encrypt_home { run_program::rooted($::prefix, 'cryptsetup', 'luksClose', $user->{name}); } +sub ask_remove_unused_packages { + require pkgs; + local $::prefix; + pkgs::remove_unused_packages($in, $in->do_pkgs, '/'); +} + sub call { my ($step_name) = @_; my $f_name = 'ask_' . $step_name; @@ -272,6 +278,7 @@ if (defined $::WizardWindow) { $::WizardWindow->destroy; undef $::WizardWindow; } +call('remove_unused_packages'); call('urpmi'); $::Wizard_pix_up = 'redhat-config-users'; call('authentication'); |