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;
$buffered = $line; # set buffered or unbuffered
} elsif ($sort eq 'Z') { # end, disconnect, go, away .....
cease(0);
- }
+ }
+
+ # ******************************************************
+ # ******************************************************
+ # any other sorts that might happen are silently ignored.
+ # ******************************************************
+ # ******************************************************
}
$lasttime = time;
}