From 665d9ad8aa8b8a71198ef8b6cae00e94b9244391 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 1999 12:05:22 +0000
Subject: no_comment

---
 perl-install/install2.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index a1645d07a..cab2718db 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -18,6 +18,7 @@ use detect_devices;
 use pkgs;
 use smp;
 use lang;
+use run_program;
 
 my @installStepsFields = qw(text help skipOnCancel skipOnLocal prev next);
 my @installSteps = (
@@ -205,11 +206,13 @@ sub finishNetworking { $o->finishNetworking }
 sub configureTimezone { $o->timeConfig }
 sub configureServices { $o->servicesConfig }
 sub setRootPassword { $o->setRootPassword }
-sub addUser { $o->addUser }
+sub addUser { 
+    $o->addUser;
+    run_program::rooted($o->{prefix}, "pwconv"); # use shadow passwords
+}
 
 sub createBootdisk {
-    $::testing and return;
-    $o->{isUpgrade} or fs::write($o->{prefix}, $o->{fstab});
+    fs::write($o->{prefix}, $o->{fstab}) unless $o->{isUpgrade};
     modules::write_conf("$o->{prefix}/etc/conf.modules", 'append');
     $o->createBootdisk;
 }
-- 
cgit v1.2.1