diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-16 11:15:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-16 11:15:48 +0000 |
| commit | ce558b1fa647bb588060d9608ea6b7b181c51ea3 (patch) | |
| tree | f08d6eaa283369eca164edfa6e298690de65f13c /perl-install | |
| parent | 9cb54e14bdea5016f09b180668207872eef0c674 (diff) | |
| download | drakx-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.pm | 16 |
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; |