summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-24 21:15:45 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-24 21:15:45 +0000
commit6b2a4158cc229cf3bb1edb54c9428e567696b54a (patch)
tree008ca7c5826aa73d42ea6f633c95cb146f533de0 /perl-install/install2.pm
parent56b374075f45355184b2927cc2f24262dc7e6c21 (diff)
downloaddrakx-6b2a4158cc229cf3bb1edb54c9428e567696b54a.tar
drakx-6b2a4158cc229cf3bb1edb54c9428e567696b54a.tar.gz
drakx-6b2a4158cc229cf3bb1edb54c9428e567696b54a.tar.bz2
drakx-6b2a4158cc229cf3bb1edb54c9428e567696b54a.tar.xz
drakx-6b2a4158cc229cf3bb1edb54c9428e567696b54a.zip
no_comment
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 8458412dc..bb97fdbcf 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -19,7 +19,7 @@ use pkgs;
use smp;
use lang;
-$::testing = 1;#$ENV{PERL_INSTALL_TEST};
+$::testing = $ENV{PERL_INSTALL_TEST};
$INSTALL_VERSION = 0;
my @installStepsFields = qw(text help skipOnCancel skipOnLocal prev next);
@@ -117,7 +117,7 @@ $o = $::o = { default => $default, steps => \%installSteps, orderedSteps => \@or
sub selectLanguage {
$o->{lang} = $o->chooseLanguage;
lang::set($o->{lang});
- keyboard::setup();
+ $o->{keyboard} = keyboard::setup();
}
sub selectPath {
@@ -238,7 +238,7 @@ install chapter of the Official Linux Mandrake User's Guide.");
}
sub main {
-# $SIG{__DIE__} = sub { chomp $_[0]; log::l("ERROR: $_[0]") };
+ $SIG{__DIE__} = sub { chomp $_[0]; log::l("ERROR: $_[0]") };
# if this fails, it's okay -- it might help with free space though
unlink "/sbin/install";