From 764fda4d28d6a964b85384551ae8f89edac8ad4e Mon Sep 17 00:00:00 2001
From: tzafrir <tzafrir@5390a7c7-147a-4af0-8ec9-7488f05a26cb>
Date: Tue, 9 Sep 2008 18:24:17 +0000
Subject: Zaptel.pm: Fix sample program (perldoc-only fix).

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


git-svn-id: http://svn.digium.com/svn/zaptel/branches/1.4@4534 5390a7c7-147a-4af0-8ec9-7488f05a26cb
---
 kernel/xpp/utils/zconf/Zaptel.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/kernel/xpp/utils/zconf/Zaptel.pm b/kernel/xpp/utils/zconf/Zaptel.pm
index a7e7d6c..431689e 100644
--- a/kernel/xpp/utils/zconf/Zaptel.pm
+++ b/kernel/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";
     }
-- 
cgit v1.2.3