allow store nodes that have a dxchannel

diff --git a/cmd/show/configuration.pl b/cmd/show/configuration.pl
index 416e1a0e8fb6d97a5e0e82b45b99f5aa1d344799..3101c5352f0466d95e615ee5d98bea914c928036 100644 (file)
--- 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 646b2ef2d0e9a653123456d9fc3267916c5cca4e..353fc11aa00c68ff8fa85a510885d4b260ec4561 100644 (file)
--- 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;