X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=7629ca1676c4ae09b62c5c109640b6ded392fe84;hb=cb319a377cdf61f610b57bb1336eba1b5873db2b;hp=2e9724e9ed78c4c6da3b95e85673f7eea183f309;hpb=140683d04c00f7932b7e3ee7f7bde4513915f0c9;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 2e9724e9..7629ca16 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -474,7 +474,7 @@ sub pc93
 	my $origin = shift;			# this will be present on proxying from PC10
 
 	$line = unpad($line);
-	$line =~ s/\^/\\5E/g;		# remove any ^ characters
+	$line =~ s/\^/~/g;		# remove any ^ characters
 	my $s = "PC93^$main::mycall^" . gen_pc9x_t() . "^$to^$from^$via^$line";
 	$s .= "^$origin" if $origin;
 	$s .= "^H99^";