summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-12-09 19:07:34 +0000
committerThierry Vignaud <tv@mandriva.org>2008-12-09 19:07:34 +0000
commit236dd0c9ff40e55042094e96917c7aaef723ee84 (patch)
tree09039b21bb99738393b4c4a37e3f4d6256098d2a /perl-install
parent20c9f3614ae4b20fdd33c4e086c5725653b9fe3f (diff)
downloaddrakx-236dd0c9ff40e55042094e96917c7aaef723ee84.tar
drakx-236dd0c9ff40e55042094e96917c7aaef723ee84.tar.gz
drakx-236dd0c9ff40e55042094e96917c7aaef723ee84.tar.bz2
drakx-236dd0c9ff40e55042094e96917c7aaef723ee84.tar.xz
drakx-236dd0c9ff40e55042094e96917c7aaef723ee84.zip
normalize device IDs for devices cthat came from mouse.pm in order to
track input devices whose format name differs between ldetect & mouse.pm (hexa vs base10)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/data.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 9d538c0aa..c914c0d5c 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -11,6 +11,15 @@ our ($version, $sbindir, $bindir) = ("10", "/usr/sbin", "/usr/bin");
my @devices = (detect_devices::probeall(), detect_devices::getSCSI());
+foreach my $dev (@devices) {
+ # normalize device IDs for devices cthat came from mouse.pm:
+ next if !defined $dev->{Synaptics};
+ foreach my $field (qw(vendor id subvendor subid)) {
+ next if !defined $dev->{$field};
+ $dev->{$field} = hex($dev->{$field});
+ }
+}
+
# Update me each time you handle one more devices class (aka configurator)
sub unknown() {
grep { $_->{media_type} !~ /BRIDGE|class\|Mouse|DISPLAY|Hub|MEMORY_RAM|MULTIMEDIA_(VIDEO|AUDIO|OTHER)|NETWORK|Printer|SERIAL_(USB|SMBUS)|STORAGE_(IDE|OTHER|RAID|SCSI)|SYSTEM_OTHER|tape|UPS/