summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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() }