[svn-commits] tzafrir: branch 1.4 r4534 - in /branches/1.4: ./ kernel/xpp/utils/zconf/

[SVN commits to the Digium repositories]

Author: tzafrir
Date: Tue Sep  9 13:24:17 2008
New Revision: 4534

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

Merged revisions 4533 via svnmerge from 
http://svn.digium.com/svn/zaptel/branches/1.2

Modified:
    branches/1.4/   (props changed)
    branches/1.4/kernel/xpp/utils/zconf/Zaptel.pm

Propchange: branches/1.4/
------------------------------------------------------------------------------
Binary property 'branch-1.2-merged' - no diff available.

Modified: branches/1.4/kernel/xpp/utils/zconf/Zaptel.pm
URL: http://svn.digium.com/view/zaptel/branches/1.4/kernel/xpp/utils/zconf/Zaptel.pm?view=diff&rev=4534&r1=4533&r2=4534
==============================================================================
--- branches/1.4/kernel/xpp/utils/zconf/Zaptel.pm (original)
+++ branches/1.4/kernel/xpp/utils/zconf/Zaptel.pm Tue Sep  9 13:24:17 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";
     }