Perl IO::Socket中出现的问题，求助！

ashajia

想用IO::Socket中的connected()测试socket的连接状态，如下：

1. $client_socket->send($data);
   
2. warn "send no connection" unless $socket -> connected();

复制代码

发现每次发送信息后，都会connected都会返回连接断开的警告信息，但不影响下次处理信息，为啥呢？