dahdi-perl: more defensive coding and some docs

git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@6056 a0bf4364-ded3-4de4-8d8a-66a801d63aff

1 files changed, 14 insertions, 0 deletions

diff --git a/xpp/dahdi_drivers b/xpp/dahdi_drivers
index add8374..857324e 100755
--- a/xpp/dahdi_drivers
+++ b/xpp/dahdi_drivers
@@ -7,3 +7,17 @@ use Dahdi::Hardware;
 
 my $hardware = Dahdi::Hardware->scan;
 print join("\n", $hardware->drivers),"\n";
+__END__
+
+=head1 NAME
+
+dahdi_drivers - Show drivers required for installed dahdi devices.
+
+=head1 SYNOPSIS
+
+dahdi_drivers
+
+=head1 DESCRIPTION
+
+This script shows by default the list of drivers required for currently
+installed dahdi devices.