X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=8525b5396aef6c8bb0405e7e713746dc568a1535;hb=6460e56097f40c33f85ceb57e20028de50023c02;hp=acb538826e2bc40c43aa51ec40f96c64afb786aa;hpb=7dd07d0e32e95c4dc1ada18c92d3b5cce5c4d128;p=spider.git

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