From f902492a01c974283c9c800ddbd5de651c474c25 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 27 Sep 1999 20:52:11 +0000
Subject: no_comment

---
 perl-install/mouse.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/mouse.pm')

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 1292b592b..4e91da97c 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -7,6 +7,7 @@ use strict;
 #- misc imports
 #-######################################################################################
 use common qw(:common :system :functional);
+use modules;
 use log;
 
 my @mouses_fields = qw(nbuttons device MOUSETYPE XMOUSETYPE FULLNAME);
@@ -75,6 +76,7 @@ sub write($;$) {
 
 sub detect() {
     my %l;
+    eval { modules::load("serial") };
     @l{qw(FULLNAME nbuttons MOUSETYPE XMOUSETYPE device)} = split("\n", `mouseconfig --nointeractive 2>/dev/null`) or die "mouseconfig failed";
     \%l;
 }
-- 
cgit v1.2.1