tried to get rid of some of the annoying global destructions messages

[spider.git] / perl / client.pl

diff --git a/perl/client.pl b/perl/client.pl
index c6f5bd2806c12d0ad0359af074fbf132cc7821ed..850b81d6f108da40bf7194e937438aa03e7cf402 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -45,7 +45,7 @@ use IO::File;
 use IO::Socket;
 use IPC::Open2;
 use Net::Telnet qw(TELOPT_ECHO);
-use Carp;
+use Carp qw{cluck};
 
 # cease communications
 sub cease
@@ -60,6 +60,7 @@ sub cease
                kill(9, $pid);
        }
        dbgclose();
+#      $SIG{__WARN__} = sub {my $a = shift; cluck($a); };
        sleep(1);
        exit(0);        
 }