dahdi_perl: Use $Dahdi::sys_base for sysfs pathes

Signed-off-by: Tzafrir Cohen <tzafrir.cohen@xorcom.com>

git-svn-id: http://svn.astersk.org/svn/dahdi/tools/trunk@10267 17933a7a-c749-41c5-a318-cba88f637d49
This commit is contained in:
Tzafrir Cohen 2011-10-23 14:43:27 +00:00
parent a81a43c9b6
commit 2457399d92

View File

@ -203,7 +203,7 @@ sub scan_devices($) {
$pci_devs{$name}{DRIVER} = ''; $pci_devs{$name}{DRIVER} = '';
} }
while(</sys/bus/pci/drivers/*/[0-9]*>) { while(<$Dahdi::sys_base/bus/pci/drivers/*/[0-9]*>) {
m,^(.*?)/([^/]+)/([^/]+)$,; m,^(.*?)/([^/]+)/([^/]+)$,;
my $prefix = $1; my $prefix = $1;
my $drvname = $2; my $drvname = $2;