From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 31 Jan 2023 12:37:18 +0000 (+0000)
Subject: removed spurious ' ' after comment in PC93
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=6460e56097f40c33f85ceb57e20028de50023c02;p=spider.git

removed spurious ' ' after comment in PC93
---

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 60040e4d..c6f50f10 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -2512,6 +2512,7 @@ sub handle_default
 	}
 }
 
+# does what it says on the tin..
 sub populate_routing_table
 {
 	my ($self, $node, $user, $ip) = @_;
diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index acb53882..8525b539 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -480,7 +480,7 @@ sub pc93
 	my $s = "PC93^$main::mycall^" . gen_pc9x_t() . "^$to^$from^$via^$line";
 	$s .= "^$origin" if $origin;
 	if ($ipaddr) {
-		$s .= ' ^' unless $origin;
+		$s .= '^' unless $origin;
 		$ipaddr =~ s/:/,/;
 		$s .= "^$ipaddr";
 	}