summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-14 16:04:04 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-14 16:04:04 +0000
commit5bd28ca1ab7a91e15b502fea7a71508285541738 (patch)
tree498de8ab81a4694cf3c85c959b6ec3bac55a7660 /perl-install
parentb99336c5440cb50de9e8ca46833df72415deb723 (diff)
downloaddrakx-5bd28ca1ab7a91e15b502fea7a71508285541738.tar
drakx-5bd28ca1ab7a91e15b502fea7a71508285541738.tar.gz
drakx-5bd28ca1ab7a91e15b502fea7a71508285541738.tar.bz2
drakx-5bd28ca1ab7a91e15b502fea7a71508285541738.tar.xz
drakx-5bd28ca1ab7a91e15b502fea7a71508285541738.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_steps_interactive.pm1
2 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 2a388a5d0..4ade27e62 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -47,7 +47,7 @@ my @installSteps = (
choosePackages => [ __("Choose packages to install"), 1, 1, "selectInstallClass" ],
doInstallStep => [ __("Install system"), 1, -1, ["formatPartitions", "selectPath"] ],
configureNetwork => [ __("Configure networking"), 1, 1, "formatPartitions" ],
- configureTimezone => [ __("Configure timezone"), 1, 1, "doInstallStep" ],
+ configureTimezone => [ __("Configure timezone"), 1, 1 ],
#- configureServices => [ __("Configure services"), 0, 0 ],
configurePrinter => [ __("Configure printer"), 1, 0, "doInstallStep" ],
setRootPassword => [ __("Set root password"), 1, 1, "formatPartitions" ],
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 8fc12fe69..1d08f6da2 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -59,7 +59,6 @@ sub selectLanguage($) {
$o->{useless_thing_accepted} = $o->ask_from_list_('',
"Wanring no wrranty, be carfull it's gonna explose ytou romcpature",
[ _("Accept"), _("Refuse") ], _("Accept")) eq _("Accept") or exit(1) unless $o->{useless_thing_accepted};
-
}
#------------------------------------------------------------------------------
sub selectKeyboard($) {