[svn-commits] tzafrir: branch 1.2 r4533 - /branches/1.2/xpp/utils/zconf/Zaptel.pm

[SVN commits to the Digium repositories]

Author: tzafrir
Date: Tue Sep  9 13:16:54 2008
New Revision: 4533

URL: http://svn.digium.com/view/zaptel?view=rev&rev=4533
Log:
Zaptel.pm: Fix sample program (perldoc-only fix).

Modified:
    branches/1.2/xpp/utils/zconf/Zaptel.pm

Modified: branches/1.2/xpp/utils/zconf/Zaptel.pm
URL: http://svn.digium.com/view/zaptel/branches/1.2/xpp/utils/zconf/Zaptel.pm?view=diff&rev=4533&r1=4532&r2=4533
==============================================================================
--- branches/1.2/xpp/utils/zconf/Zaptel.pm (original)
+++ branches/1.2/xpp/utils/zconf/Zaptel.pm Tue Sep  9 13:16:54 2008
@@ -22,10 +22,10 @@
   # 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";
     }