removed spurious ' ' after comment in PC93

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 60040e4d525b527732abc578e0724462868e1325..c6f50f10159ebc08dfc125eb541c9eaa8d96161d 100644 (file)
--- 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 acb538826e2bc40c43aa51ec40f96c64afb786aa..8525b5396aef6c8bb0405e7e713746dc568a1535 100644 (file)
--- 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";
        }