summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-20 08:39:36 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-20 08:39:36 +0000
commit8da7a0daa3cac2c0c0de09e6cea307bbf3c7ab48 (patch)
tree3850cc810aef39d65cbabba97be26ee13ff41834 /perl-install
parentcdcbb8536e7443e10fefff83a327dbb55b7c709a (diff)
downloaddrakx-backup-do-not-use-8da7a0daa3cac2c0c0de09e6cea307bbf3c7ab48.tar
drakx-backup-do-not-use-8da7a0daa3cac2c0c0de09e6cea307bbf3c7ab48.tar.gz
drakx-backup-do-not-use-8da7a0daa3cac2c0c0de09e6cea307bbf3c7ab48.tar.bz2
drakx-backup-do-not-use-8da7a0daa3cac2c0c0de09e6cea307bbf3c7ab48.tar.xz
drakx-backup-do-not-use-8da7a0daa3cac2c0c0de09e6cea307bbf3c7ab48.zip
add matching_type() to introduce the TYPE keyword in rpmsrate
(supports only laptop type for now)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 950a11462..dc30060bf 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -783,6 +783,11 @@ sub isLaptop() {
|| cat_('/proc/cpuinfo') =~ /\bmobile\b/i;
}
+sub matching_type {
+ my ($type) = @_;
+ $type =~ /laptop/i && isLaptop();
+}
+
sub usbMice() { grep { $_->{media_type} =~ /\|Mouse/ && $_->{driver} !~ /Tablet:wacom/ ||
$_->{driver} =~ /Mouse:USB/ } usb_probe() }
sub usbWacom() { grep { $_->{driver} =~ /Tablet:wacom/ } usb_probe() }