From ed415606af749ae52aef3b3fcb2f59e818e1e705 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Mon, 6 Sep 1999 10:28:41 +0000
Subject: PAD don't work because     my $sup = $o->{superuser}; don't create
 reference the result will go in $sup but not in $o->{superuser}

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

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

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index dd12293e5..80efd4070 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -393,8 +393,8 @@ wish to access and any applicable user name and password."),
 #------------------------------------------------------------------------------
 sub setRootPassword($) {
     my ($o) = @_;
-    $o->{superuser} ||= {};
-    $o->{superuser}{password2} ||= $o->{superuser}{password} ||= "";
+#    $o->{superuser} ||= {};
+#    $o->{superuser}{password2} ||= $o->{superuser}{password} ||= "";
     my $sup = $o->{superuser};
 
     $o->ask_from_entries_ref(_("Set root password"),
-- 
cgit v1.2.1