diff options
author | Eugeni Dodonov <eugeni@mandriva.org> | 2011-02-22 21:56:13 +0000 |
---|---|---|
committer | Eugeni Dodonov <eugeni@mandriva.org> | 2011-02-22 21:56:13 +0000 |
commit | 610dd5f37880aed9f43ee443c47938fd20cbaf6e (patch) | |
tree | 19d4031064568e63c9a101ec6b9402bf90e9c9a9 /perl-install/standalone | |
parent | 30dd03645faa97db0065f6f77b2239350681a793 (diff) | |
download | drakx-backup-do-not-use-610dd5f37880aed9f43ee443c47938fd20cbaf6e.tar drakx-backup-do-not-use-610dd5f37880aed9f43ee443c47938fd20cbaf6e.tar.gz drakx-backup-do-not-use-610dd5f37880aed9f43ee443c47938fd20cbaf6e.tar.bz2 drakx-backup-do-not-use-610dd5f37880aed9f43ee443c47938fd20cbaf6e.tar.xz drakx-backup-do-not-use-610dd5f37880aed9f43ee443c47938fd20cbaf6e.zip |
Allow finish-install to remove unused packages
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/finish-install | 7 |
1 files changed, 7 insertions, 0 deletions
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'); |