[svn-commits] tzafrir: tools/trunk r7012 - /tools/trunk/xpp/perl_modules/Dahdi/Hardware.pm

[SVN commits to the Digium repositories]

Author: tzafrir
Date: Sun Aug 16 10:09:56 2009
New Revision: 7012

URL: http://svn.asterisk.org/svn-view/dahdi?view=rev&rev=7012
Log:
xpp: Dahdi::Hardware->rescan() - refresh hardware list

Allow refreshing the list of hardware even after the initial scan.
(E.g. a script that resets firmware for Astribanks)

xpp rev: 7320

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

Modified: tools/trunk/xpp/perl_modules/Dahdi/Hardware.pm
URL: http://svn.asterisk.org/svn-view/dahdi/tools/trunk/xpp/perl_modules/Dahdi/Hardware.pm?view=diff&rev=7012&r1=7011&r2=7012
==============================================================================
--- tools/trunk/xpp/perl_modules/Dahdi/Hardware.pm (original)
+++ tools/trunk/xpp/perl_modules/Dahdi/Hardware.pm Sun Aug 16 10:09:56 2009
@@ -181,6 +181,20 @@
 		die $@ if $@;
 		$hardware_list{$type} = [ "Dahdi::Hardware::$type"->scan_devices ];
 	}
+}
+
+=head1 rescan
+
+Rescan for devices. In case new devices became available since the script
+has started.
+
+=cut
+
+sub rescan($) {
+	my $pack = shift || die;
+
+	$hardware_scanned = 0;
+	$pack->scan();
 }
 
 sub import {