diff options
author | tzafrir <tzafrir@5390a7c7-147a-4af0-8ec9-7488f05a26cb> | 2008-09-09 18:16:54 +0000 |
---|---|---|
committer | tzafrir <tzafrir@5390a7c7-147a-4af0-8ec9-7488f05a26cb> | 2008-09-09 18:16:54 +0000 |
commit | 001530e4a72f3f2f4bdc52a9b4a3ece6eb46b87e (patch) | |
tree | 314ea11f29163193d9915d5539dc27c5138a3337 | |
parent | 1deed9a16316c72eadc3ad6678d27227ec587d7b (diff) |
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
-rw-r--r-- | xpp/utils/zconf/Zaptel.pm | 4 |
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"; } |