added echo and noecho for clients to set/unset

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index b626e27c67958eb9822f12491298d349094c31c4..b3816df3f324ade51480e1f65d4105cc13d13b6b 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -89,7 +89,7 @@ sub _enqueue {
     my ($conn, $msg) = @_;
     # prepend length (encoded as network long)
     my $len = length($msg);
-       $msg =~ s/(\x00-\x2f\x7e-\xff%])/sprintf("%%%02X", ord($1))/eg; 
+       $msg =~ s/([\%\x00-\x1f\x7f-\xff])/sprintf("%%%02X", ord($1))/eg; 
     push (@{$conn->{queue}}, $msg . "\n");
 }