projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add some extra default badwords
[spider.git]
/
perl
/
DXProtout.pm
diff --git
a/perl/DXProtout.pm
b/perl/DXProtout.pm
index 2e9724e9ed78c4c6da3b95e85673f7eea183f309..7629ca1676c4ae09b62c5c109640b6ded392fe84 100644
(file)
--- 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);
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^";
my $s = "PC93^$main::mycall^" . gen_pc9x_t() . "^$to^$from^$via^$line";
$s .= "^$origin" if $origin;
$s .= "^H99^";