summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorEugeni Dodonov <eugeni@mandriva.org>2011-02-22 21:56:13 +0000
committerEugeni Dodonov <eugeni@mandriva.org>2011-02-22 21:56:13 +0000
commit610dd5f37880aed9f43ee443c47938fd20cbaf6e (patch)
tree19d4031064568e63c9a101ec6b9402bf90e9c9a9 /perl-install
parent30dd03645faa97db0065f6f77b2239350681a793 (diff)
downloaddrakx-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')
-rw-r--r--perl-install/NEWS2
-rwxr-xr-xperl-install/standalone/finish-install7
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');