From 6460e56097f40c33f85ceb57e20028de50023c02 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 31 Jan 2023 12:37:18 +0000
Subject: [PATCH] removed spurious ' ' after comment in PC93

---
 perl/DXProtHandle.pm | 1 +
 perl/DXProtout.pm    | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

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";
 	}
-- 
2.34.1