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:
parent
a81a43c9b6
commit
2457399d92
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user