} elsif ($get =~ /MESSAGE ([^ ]+) (.*)\n$/) {
####
sub get_line {
my ($fh) = @_;
warn "Getting from $fh\n";
my $line = read_from_buffer($fh);
return $line if defined $line;
if (sysread $fh, my $read, BUFF_SIZE) {
warn "sysread $read";
$buff{$fh} .= $read;
}
$line = read_from_buffer($fh);
warn "Got $line\n";
warn do { use Data::Dumper; Dumper $buff{$fh} };
return $line;
}
##
##
sub get_line {
my ($fh) = @_;
warn "Getting from $fh\n";
my $line = read_from_buffer($fh);
return $line if defined $line;
sysread($fh, $_, BUFF_SIZE, length) for $buff{$fh};
return get_line($fh);
}