Zaptel.pm: Fix sample program (perldoc-only fix).

git-svn-id: http://svn.digium.com/svn/zaptel/branches/1.2@4533 5390a7c7-147a-4af0-8ec9-7488f05a26cb

1 files changed, 2 insertions, 2 deletions

diff --git a/xpp/utils/zconf/Zaptel.pm b/xpp/utils/zconf/Zaptel.pm
index a7e7d6c..431689e 100644
--- a/xpp/utils/zconf/Zaptel.pm
+++ b/xpp/utils/zconf/Zaptel.pm
@@ -22,10 +22,10 @@ hardware and loaded Zaptel devices.
   # Listing channels in analog spans:
   use Zaptel;
   # scans system:
-  my @xbuses = Zaptel::spans();
+  my @spans = Zaptel::spans();
   for my $span (@spans) {
     next if ($span->is_digital);
-     $span->num. " - [". $span->type ."] ". $span->name. "\n";
+    $span->num. " - [". $span->type ."] ". $span->name. "\n";
     for my $chan ($span->chans) {
       print " - ".$chan->num . " - [". $chan->type. "] ". $chan->fqn". \n";
     }