From a814d357d81a3ccd4a3cafaef4c36ce290d82605 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 10 Sep 2003 14:28:48 +0000
Subject: fixed the fpons trick (which was false moreover)

---
 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 3de4cb781..a4d74e7a3 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -333,7 +333,7 @@ sub load_modules {
 	/serial/ and @l = qw(serial);
 	/USB/    and @l = qw(hid mousedev usbmouse);
     }
-    foreach ($mouse->{wacom}) {
+    for (@{$mouse->{wacom}}) {
 	/ttyS/   and push @l, qw(serial);
 	/event/  and push @l, qw(wacom evdev);
     }
-- 
cgit v1.2.1