projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
upissued version to 1.7
[spider.git]
/
perl
/
client.pl
diff --git
a/perl/client.pl
b/perl/client.pl
index 9c4fc0f5088a9b39d76cfe51592a295d5701ccc9..b7bb5452f684becf01bc12273b1e89d37dd0ccef 100755
(executable)
--- a/
perl/client.pl
+++ b/
perl/client.pl
@@
-221,7
+221,7
@@
sub dochat
dbg('connect', "CHAT \"$expect\" -> \"$send\"");
my $line;
dbg('connect', "CHAT \"$expect\" -> \"$send\"");
my $line;
-
#
alarm($timeout);
+ alarm($timeout);
if ($expect) {
if ($csort eq 'telnet') {
if ($expect) {
if ($csort eq 'telnet') {
@@
-243,7
+243,7
@@
sub dochat
$sock->print("$send\n");
} elsif ($csort eq 'ax25') {
local $\ = "\r";
$sock->print("$send\n");
} elsif ($csort eq 'ax25') {
local $\ = "\r";
- $wfh->print("$send
\r
");
+ $wfh->print("$send");
}
dbg('connect', "sent \"$send\"");
}
}
dbg('connect', "sent \"$send\"");
}