summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 906ca3786..286f05c4a 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -513,9 +513,6 @@ sub main {
require harddrake::sound;
harddrake::sound::configure_sound_slots();
- #- needed very early for install_steps_gtk
- eval { $o->{mouse} = mouse::detect() } if !$o->{nomouseprobe} && !$o->{mouse} && !$::testing;
-
#- need to be after oo-izing $o
if ($o->{brltty}) {
symlink "/tmp/stage2/$_", $_ foreach "/etc/brltty";
@@ -527,8 +524,9 @@ sub main {
install_any::getAndSaveFile($_ , "/tmp/stage2/$_") if $_;
}
install_any::getAndSaveFile("/lib/brltty/libbrlttyb$o->{brltty}{driver}.so") or do {
- warn("Braille driver $o->{brltty}{driver} for BRLTTY was not found.\n",
- "Press ENTER to continue.\n");
+ local $| = 1;
+ print("Braille driver $o->{brltty}{driver} for BRLTTY was not found.\n",
+ "Press ENTER to continue.\n\a");
<STDIN>;
};
install_any::getAndSaveFile("/usr/bin/brltty");
@@ -538,6 +536,9 @@ sub main {
run_program::run("brltty");
}
+ #- needed very early for install_steps_gtk
+ eval { $o->{mouse} = mouse::detect() } if !$o->{nomouseprobe} && !$o->{mouse} && !$::testing;
+
$o->{lang} = lang::set($o->{lang}) if $o->{lang} ne 'en_US'; #- mainly for defcfg
start_i810fb();