From b8f187b44cdb8addd2b89039bcc4459f3b5ea924 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 5 Feb 2003 13:04:12 +0000 Subject: - add a beep in case of brltty error message - probe mouse before running brltty --- perl-install/install2.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'perl-install/install2.pm') 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"); ; }; 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(); -- cgit v1.2.1