get all the debugging finally into the debug files when things go wrong

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index bc2d46c7f9b2e322b55275f1991b91fd51133e8b..6327ee5fd1c86ac61f648a033755c28a545d9e1f 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -46,14 +46,13 @@ use Net::Telnet qw(TELOPT_ECHO);
 use IO::File;
 use IO::Socket;
 use IPC::Open2;
-use Carp qw{cluck};
 
 # cease communications
 sub cease
 {
        my $sendz = shift;
        if ($conn && $sendz) {
-               $conn->send_now("Z$call|bye...\n");
+               $conn->send_now("Z$call|bye...");
                sleep(1);
        }
        $stdout->flush if $stdout;