From 0ae2756b512f3783efe7f7e3c124b0a074227e81 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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