diff options
| -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 33ab8a5..505e6ef 100644 --- a/xpp/perl_modules/Dahdi/Hardware/PCI.pm +++ b/xpp/perl_modules/Dahdi/Hardware/PCI.pm @@ -203,7 +203,7 @@ sub scan_devices($) { $pci_devs{$name}{DRIVER} = ''; } - while(</sys/bus/pci/drivers/*/[0-9]*>) { + while(<$Dahdi::sys_base/bus/pci/drivers/*/[0-9]*>) { m,^(.*?)/([^/]+)/([^/]+)$,; my $prefix = $1; my $drvname = $2; |