summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-09-10 09:05:20 +0000
committerFrancois Pons <fpons@mandriva.com>2003-09-10 09:05:20 +0000
commitb9a03fba6c89fc02883c06d0601b13d8e455dbff (patch)
tree2250b69ca3b8d9f06379a0605a5c3b8a63c44689 /perl-install
parent21896a8feca02597f18fc66dc2f8b61627fe6a44 (diff)
downloaddrakx-b9a03fba6c89fc02883c06d0601b13d8e455dbff.tar
drakx-b9a03fba6c89fc02883c06d0601b13d8e455dbff.tar.gz
drakx-b9a03fba6c89fc02883c06d0601b13d8e455dbff.tar.bz2
drakx-b9a03fba6c89fc02883c06d0601b13d8e455dbff.tar.xz
drakx-b9a03fba6c89fc02883c06d0601b13d8e455dbff.zip
save recovery file if disk installation.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 379e3408e..ce8954cc3 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -626,6 +626,10 @@ sub main {
modules::write_conf($o->{prefix});
detect_devices::install_addons($o->{prefix});
+ #- save recovery file if needed (ie disk style install).
+ $o->{method} eq 'disk' and
+ output($o->{prefix}.any::hdInstallPath()."/Mandrake/base/recovery.cfg", install_any::g_auto_install(1));
+
#- mainly for auto_install's
#- do not use run_program::xxx because it doesn't leave stdin/stdout unchanged
system("bash", "-c", $o->{postInstallNonRooted}) if $o->{postInstallNonRooted};