From 0ae2756b512f3783efe7f7e3c124b0a074227e81 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 11 Jul 2007 19:46:39 +0100 Subject: [PATCH] allow store nodes that have a dxchannel --- cmd/show/configuration.pl | 2 +- perl/Version.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cmd/show/configuration.pl b/cmd/show/configuration.pl index 416e1a0e..3101c535 100644 --- a/cmd/show/configuration.pl +++ b/cmd/show/configuration.pl @@ -21,7 +21,7 @@ if ($list[0] && $list[0] =~ /^NOD/) { foreach my $n (@nodes) { $dxchan = $n->dxchan; - push @{$ch{$dxchan->call}}, $n; + push @{$ch{$dxchan->call}}, $n if $dxchan; } foreach my $call (sort keys %ch) { diff --git a/perl/Version.pm b/perl/Version.pm index 646b2ef2..353fc11a 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '114'; +$build = '115'; 1; -- 2.43.0