From 459eedd7dc7ef289f379d2fc1dc691a057d1e144 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 18 Nov 2004 13:25:45 +0000
Subject: remove some unneeded ";", add some for normalization (as told by
 perl_checker)

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

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

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 8b6167d86..dd3b78be8 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -168,7 +168,7 @@ sub fullnames() {
 		$type .= "|[" . N("Other") . "]";
 		'';
 	    }
-	} @{$::b->[1]}
+	} @{$::b->[1]};
     } %mice;
 }
 
@@ -239,7 +239,7 @@ sub probe_wacom_devices {
     log::l("found usb wacom $_->{driver} $_->{description} ($_->{type})") foreach @l;
     my @wacom = eval { 
 	modules::load("wacom", "evdev");
-	grep { detect_devices::tryOpen($_) } map_index { "input/event$::i" } @l
+	grep { detect_devices::tryOpen($_) } map_index { "input/event$::i" } @l;
     };
     @wacom or eval { modules::unload("evdev", "wacom") };
     @wacom;
@@ -444,7 +444,7 @@ sub write_conf {
 	my $xfree_conf = Xconfig::xfree->read;
 	set_xfree_conf($mouse, $xfree_conf, $b_keep_auxmouse_unchanged);
 	$xfree_conf->write;
-    }
+    };
 }
 
 sub change_mouse_live {
-- 
cgit v1.2.1