From: Dirk Koopman Date: Tue, 31 Jan 2023 12:37:18 +0000 (+0000) Subject: removed spurious ' ' after comment in PC93 X-Git-Url: http://dxcluster.net/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"; }