diff options
Diffstat (limited to 'xpp/perl_modules/Dahdi/Hardware')
-rw-r--r-- | xpp/perl_modules/Dahdi/Hardware/USB.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/xpp/perl_modules/Dahdi/Hardware/USB.pm b/xpp/perl_modules/Dahdi/Hardware/USB.pm index 722b87b..d4985b8 100644 --- a/xpp/perl_modules/Dahdi/Hardware/USB.pm +++ b/xpp/perl_modules/Dahdi/Hardware/USB.pm @@ -114,7 +114,7 @@ sub set_transport($$) { sub _get_attr($) { my $attr_file = shift; - open(ATTR, $attr_file) or die "Failed to read SysFS attribute $attr_file\n"; + open(ATTR, $attr_file) or return undef; my $value = <ATTR>; chomp $value; return $value; @@ -134,7 +134,7 @@ sub scan_devices_sysfs($) { my $devnum = _get_attr("$_/devnum"); my $vendor = _get_attr("$_/idVendor"); my $product = _get_attr("$_/idProduct"); - my $serial = _get_attr("$_/serial"); + my $serial = _get_attr("$_/serial") or return undef; my $devname = sprintf("%03d/%03d", $busnum, $devnum); my $model = $usb_ids{"$vendor:$product"}; next unless defined $model; |