diff options
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 63297d78b..48b5bd7a1 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -579,6 +579,14 @@ sub is_wireless_interface { c::isNetDeviceWirelessAware($interface) || -e "/sys/class/net/$interface/wireless"; } +sub get_sysfs_device_id_map { + my ($dev_path) = @_; + my $is_usb = -f "$dev_path/bInterfaceNumber"; + $is_usb ? + { id => '../idProduct', vendor => '../idVendor' } : + { id => "device", subid => "subsystem_device", vendor => "vendor", subvendor => "subsystem_vendor" }; +} + sub getNet() { grep { is_lan_interface($_) } uniq( |