diff options
Diffstat (limited to 'xpp/perl_modules/Dahdi/Hardware/PCI.pm')
| -rw-r--r-- | xpp/perl_modules/Dahdi/Hardware/PCI.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/xpp/perl_modules/Dahdi/Hardware/PCI.pm b/xpp/perl_modules/Dahdi/Hardware/PCI.pm index f6b3901..a1ef6bb 100644 --- a/xpp/perl_modules/Dahdi/Hardware/PCI.pm +++ b/xpp/perl_modules/Dahdi/Hardware/PCI.pm @@ -170,7 +170,7 @@ sub readfile($) { sub scan_devices($) { my @devices; - while(</sys/bus/pci/devices/*>) { + while(<$Dahdi::sys_base/bus/pci/devices/*>) { m,([^/]+)$,,; my $name = $1; my $l = readlink $_ || die; |