From: minima Date: Sat, 24 Feb 2001 11:17:18 +0000 (+0000) Subject: modified binmode rather than doing the lineendings manually X-Git-Tag: R_1_47_PRE1~10 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=b73aa9d811a4a1691f4ec2a9aaba0eb51f5ff62d;p=spider.git modified binmode rather than doing the lineendings manually --- diff --git a/perl/client.pl b/perl/client.pl index 06d4cbc4..f153b589 100755 --- a/perl/client.pl +++ b/perl/client.pl @@ -235,7 +235,7 @@ sub doconnect $sock->output_record_separator(''); $sock->option_accept(Dont => TELOPT_ECHO, Wont => TELOPT_ECHO); $sock->open($host) or die "Can't connect to $host port $port $!"; - $sock->binmode(1); + $sock->binmode(0); $mode = 3; } elsif ($sort eq 'ax25' || $sort eq 'prog') { my @args = split /\s+/, $line; @@ -316,8 +316,8 @@ sub dochat } if ($send) { if ($csort eq 'telnet') { - local $\ = $out_lineend; - $sock->print("$send$out_lineend"); +# local $\ = $out_lineend; + $sock->print("$send\n"); } elsif ($csort eq 'ax25') { local $\ = $out_lineend; $wfh->print("$send");