summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-05 21:28:36 +0000
committerpad <pad@mandriva.com>1999-09-05 21:28:36 +0000
commit38dce4a6d02d689b7aefa2b5f925ac5441c51a89 (patch)
tree78e8513e786585460ab499c1614e46dfbf1e25be /perl-install/install_steps.pm
parentfeaf2a529e993fee5bd71560d883ef354537ed6a (diff)
downloaddrakx-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.pm26
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; #