- add a beep in case of brltty error message

- probe mouse before running brltty

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();