From ab52d73b91002f6b81365711171978bb0ad39bc9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 25 Sep 2000 23:19:45 +0000 Subject: no_comment --- perl-install/mouse.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 3366e0807..d942c54c2 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -150,7 +150,7 @@ sub serial_port2text { sub read { my ($prefix) = @_; my %mouse = getVarsFromSh "$prefix/etc/sysconfig/mouse"; - add2hash_(\%mouse, fullname2mouse($mouse{FULLNAME})); + eval { add2hash_(\%mouse, fullname2mouse($mouse{FULLNAME})) }; $mouse{device} = readlink "$prefix/dev/mouse" or log::l("reading $prefix/dev/mouse symlink failed"); $mouse{nbuttons} = $mouse{XEMU3} eq "yes" ? 2 : $mouse{WHEEL} eq "yes" ? 5 : 3; \%mouse; -- cgit v1.2.1