From 3e4ad5e1b687f262a1d7cc39a0b905a595ac7f95 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 11 May 2004 12:31:46 +0000
Subject: perl_checker compliance

---
 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 8fad2b955..7c53d5415 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -174,7 +174,7 @@ sub fullnames() {
 sub fullname2mouse {
     my ($fname, %opts) = @_;
     my ($type, @l) = split '\|', $fname;
-    my ($name) = pop @l;
+    my $name = pop @l;
   search:
     $opts{device} ||= $mice{$type}[0][0];
     foreach (@{$mice{$type}[1]}) {
-- 
cgit v1.2.1