[dahdi-commits] tzafrir: tools/trunk r10267 - /tools/trunk/xpp/perl_modules/Dahdi/Hardware/

[SVN commits to the DAHDI project]

Author: tzafrir
Date: Sun Oct 23 09:43:27 2011
New Revision: 10267

URL: http://svnview.digium.com/svn/dahdi?view=rev&rev=10267
Log:
dahdi_perl: Use $Dahdi::sys_base for sysfs pathes

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

Modified:
    tools/trunk/xpp/perl_modules/Dahdi/Hardware/PCI.pm

Modified: tools/trunk/xpp/perl_modules/Dahdi/Hardware/PCI.pm
URL: http://svnview.digium.com/svn/dahdi/tools/trunk/xpp/perl_modules/Dahdi/Hardware/PCI.pm?view=diff&rev=10267&r1=10266&r2=10267
==============================================================================
--- tools/trunk/xpp/perl_modules/Dahdi/Hardware/PCI.pm (original)
+++ tools/trunk/xpp/perl_modules/Dahdi/Hardware/PCI.pm Sun Oct 23 09:43:27 2011
@@ -203,7 +203,7 @@
 		$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;