From ce558b1fa647bb588060d9608ea6b7b181c51ea3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 16 Dec 2002 11:15:48 +0000
Subject: really drop update_type_name

---
 perl-install/mouse.pm | 16 ----------------
 1 file changed, 16 deletions(-)

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

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index d81eafe3a..7488c450d 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -138,22 +138,6 @@ sub raw2mouse {
     +{ %l, type => $type };
 }
 
-sub update_type_name {
-    my ($mouse) = @_;
-    while (my ($k, $v) = each %mice) {
-	$mouse->{device} =~ /usb/ && $k ne 'USB' and next; #- avoid mixing USB and PS/2 mice.
-	foreach (@{$v->[1]}) {
-	    if ($_->[0] == $mouse->{nbuttons} && $_->[2] eq $mouse->{XMOUSETYPE}) {
-		add2hash($mouse, { MOUSETYPE => $_->[1],
-				   type      => $k,
-				   name      => $_->[3],
-				 });
-		return $mouse;
-	    }
-	}
-    }
-}
-
 sub fullnames { 
     map_each { 
 	my $type = $::a;
-- 
cgit v1.2.1