diff options
| author | tzafrir <tzafrir@5390a7c7-147a-4af0-8ec9-7488f05a26cb> | 2008-09-09 18:24:17 +0000 |
|---|---|---|
| committer | tzafrir <tzafrir@5390a7c7-147a-4af0-8ec9-7488f05a26cb> | 2008-09-09 18:24:17 +0000 |
| commit | 764fda4d28d6a964b85384551ae8f89edac8ad4e (patch) | |
| tree | 449c771af6b9e183f16077aecf7ab5f8090325a1 | |
| parent | b78d7a16270eb44c0dc8d4f22c6a38215214e2a3 (diff) | |
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
| -rw-r--r-- | kernel/xpp/utils/zconf/Zaptel.pm | 4 |
1 files 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"; } |