From b9a03fba6c89fc02883c06d0601b13d8e455dbff Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 10 Sep 2003 09:05:20 +0000
Subject: save recovery file if disk installation.

---
 perl-install/install2.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/install2.pm')

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};
-- 
cgit v1.2.1