diff options
| author | pad <pad@mandriva.com> | 1999-09-05 21:28:36 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-05 21:28:36 +0000 |
| commit | 38dce4a6d02d689b7aefa2b5f925ac5441c51a89 (patch) | |
| tree | 78e8513e786585460ab499c1614e46dfbf1e25be /perl-install/install_steps.pm | |
| parent | feaf2a529e993fee5bd71560d883ef354537ed6a (diff) | |
| download | drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.gz drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.bz2 drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.tar.xz drakx-38dce4a6d02d689b7aefa2b5f925ac5441c51a89.zip | |
code clarification + bugfix
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 26 |
1 files changed, 16 insertions, 10 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 9c5473c49..b9ffd80ee 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -24,18 +24,14 @@ use network; use fs; -my $o; - -1; - - #-###################################################################################### -#- misc functions +#- OO Stuff #-###################################################################################### sub new($$) { - my ($type, $o_) = @_; - - $o = bless $o_, ref $type || $type; + my ($type, $o) = @_; + + bless $o, ref $type || $type; + return $o; } #-###################################################################################### @@ -84,11 +80,15 @@ sub errorInStep($$) {} #-###################################################################################### #------------------------------------------------------------------------------ sub selectLanguage { + my ($o) = @_; $o->{keyboard} ||= keyboard::lang2keyboard($o->{lang}); selectKeyboard($o); } #------------------------------------------------------------------------------ -sub selectKeyboard { keyboard::setup($o->{keyboard}) } +sub selectKeyboard { + my ($o) = @_; + keyboard::setup($o->{keyboard}) + } #------------------------------------------------------------------------------ sub selectPath {} #------------------------------------------------------------------------------ @@ -261,6 +261,7 @@ sub addUser($) { #------------------------------------------------------------------------------ sub createBootdisk($) { + my ($o) = @_; my $dev = $o->{mkbootdisk} or return; my @l = detect_devices::floppies(); @@ -288,3 +289,8 @@ sub setupXfree { #------------------------------------------------------------------------------ sub exitInstall {} + +#-###################################################################################### +#- Wonderful perl :( +#-###################################################################################### +1; # |