From 6460e56097f40c33f85ceb57e20028de50023c02 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0