diff options
| -rw-r--r-- | xpp/perl_modules/Dahdi/Hardware.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/xpp/perl_modules/Dahdi/Hardware.pm b/xpp/perl_modules/Dahdi/Hardware.pm index 1509615..ba89447 100644 --- a/xpp/perl_modules/Dahdi/Hardware.pm +++ b/xpp/perl_modules/Dahdi/Hardware.pm @@ -183,6 +183,20 @@ sub scan($) { } } +=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 { Dahdi::Hardware->scan unless grep(/\bnoscan\b/i, @_); } |