From bb6492e7bf3b348808cc2102c840fc91a3bff7b0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 6 Jan 2000 22:48:08 +0000
Subject: no_comment

---
 perl-install/standalone/mousedrake | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/mousedrake')

diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index 1682295e1..c05ad5d99 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -18,9 +18,9 @@ $::isStandalone = 1;
 
 my $in = vnew interactive('su');
 
-my $mouse = mouse::detect() unless $::noauto;
+my $mouse = eval { mouse::detect() } unless $::noauto;
 
-if (!(my $name = $mouse->{FULLNAME}) || !$::auto) {
+if (!(my $name = $mouse && $mouse->{FULLNAME}) || !$::auto) {
     $name ||= "Generic Mouse (serial)";
     $name = $in->ask_from_list_('', _("What is the type of your mouse?"), [ mouse::names() ], $name);
     $mouse = mouse::name2mouse($name);
-- 
cgit v1.2.1