dahdi_perl: Use $Dahdi::sys_base for sysfs pathes
authorTzafrir Cohen <tzafrir.cohen@xorcom.com>
Sun, 23 Oct 2011 14:43:27 +0000 (14:43 +0000)
committerTzafrir Cohen <tzafrir.cohen@xorcom.com>
Sun, 23 Oct 2011 14:43:27 +0000 (14:43 +0000)
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

xpp/perl_modules/Dahdi/Hardware/PCI.pm

index 33ab8a5..505e6ef 100644 (file)
@@ -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;