summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 2362b3582..928ca4d25 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -605,8 +605,7 @@ sub setRootPassword($) {
$o->ask_from_entries_refH([_("Set root password"), _("Ok"), $o->{security} > 2 ? () : _("No password")],
[ _("Set root password"),
$::beginner ? "\n" .
-_("(a user ``mandrake'' with password ``mandrake'' has been automatically added.
-Do not use the user ``root'', except in special occasions.") : ()
+_("(an user ``mandrake'' with password ``mandrake'' has been automatically added)") : ()
], [
_("Password") => { val => \$sup->{password}, hidden => 1 },
_("Password (again)") => { val => \$sup->{password2}, hidden => 1 },
@@ -691,6 +690,9 @@ sub addUser($) {
#------------------------------------------------------------------------------
sub createBootdisk {
my ($o, $first_time) = @_;
+
+ return if $first_time && $::beginner;
+
my @l = detect_devices::floppies();
my %l = (
'fd0' => __("First floppy drive"),