diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-23 13:01:55 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-23 13:01:55 +0000 |
| commit | 673787cbdab4a47b0b3cb987866c57704d7bdee9 (patch) | |
| tree | 32255ffefd59a78b5e798e18a4f790b032449c1b /perl-install/install_steps_stdio.pm | |
| parent | 57ea24fde5f61bb54bee187847f1119b5c79f9f3 (diff) | |
| download | drakx-673787cbdab4a47b0b3cb987866c57704d7bdee9.tar drakx-673787cbdab4a47b0b3cb987866c57704d7bdee9.tar.gz drakx-673787cbdab4a47b0b3cb987866c57704d7bdee9.tar.bz2 drakx-673787cbdab4a47b0b3cb987866c57704d7bdee9.tar.xz drakx-673787cbdab4a47b0b3cb987866c57704d7bdee9.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_stdio.pm')
| -rw-r--r-- | perl-install/install_steps_stdio.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm index f5b05a0f1..8122c3ba2 100644 --- a/perl-install/install_steps_stdio.pm +++ b/perl-install/install_steps_stdio.pm @@ -18,7 +18,7 @@ use log; sub enteringStep($$$) { my ($o, $step) = @_; - print _("Starting step `%s'\n", $o->{steps}->{$step}->{text}); + print _("Starting step `%s'\n", $o->{steps}{$step}{text}); } sub leavingStep { my ($o) = @_; @@ -50,7 +50,7 @@ sub setRootPassword($) { print "Password (again for confirmation): "; } until ($w{password} eq $o->readln()); - $o->{default}->{rootPassword} = $w{password}; + $o->{default}{rootPassword} = $w{password}; $o->SUPER::setRootPassword; } @@ -68,6 +68,6 @@ sub addUser($) { $w{shell} = $o->ask_from_list('', 'Shell', [ install_any::shells($o) ], "/bin/bash"); - $o->{default}->{user} = { map { $_ => $w{$_}->get_text } qw(name password realname shell) }; + $o->{default}{user} = { map { $_ => $w{$_}->get_text } qw(name password realname shell) }; $o->SUPER::addUser; } |