summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-16 11:15:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-16 11:15:48 +0000
commitce558b1fa647bb588060d9608ea6b7b181c51ea3 (patch)
treef08d6eaa283369eca164edfa6e298690de65f13c /perl-install
parent9cb54e14bdea5016f09b180668207872eef0c674 (diff)
downloaddrakx-backup-do-not-use-ce558b1fa647bb588060d9608ea6b7b181c51ea3.tar
drakx-backup-do-not-use-ce558b1fa647bb588060d9608ea6b7b181c51ea3.tar.gz
drakx-backup-do-not-use-ce558b1fa647bb588060d9608ea6b7b181c51ea3.tar.bz2
drakx-backup-do-not-use-ce558b1fa647bb588060d9608ea6b7b181c51ea3.tar.xz
drakx-backup-do-not-use-ce558b1fa647bb588060d9608ea6b7b181c51ea3.zip
really drop update_type_name
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mouse.pm16
1 files changed, 0 insertions, 16 deletions
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;