diff options
author | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2011-10-23 14:43:27 +0000 |
---|---|---|
committer | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2011-10-23 14:43:27 +0000 |
commit | 61efa562e2f475afff5b25927f30c7cd32b82ed2 (patch) | |
tree | f588abd64dd08cef9cce999f6a7406ca0c8f3600 | |
parent | cd9fcd64151651a66bc5313a38ee48848dd6b1c3 (diff) |
dahdi_perl: Use $Dahdi::sys_base for sysfs pathes
Signed-off-by: Tzafrir Cohen <tzafrir.cohen@xorcom.com>
git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@10267 a0bf4364-ded3-4de4-8d8a-66a801d63aff
-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; |