removed spurious ' ' after comment in PC93

[spider.git] / perl / DXProtout.pm

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