The tests for Starman were generating some warnings on my machine but were still passing. I
successfully squelched the warnings by checking for definedness on a scalar that was having
a regex applied to it. It's a simple modification, not worthy of patch - here's the line in
context:
sub _read_headers {
my $self = shift;
eval {
local $SIG{ALRM} = sub { die "Timed out\n"; };
alarm( READ_TIMEOUT );
while (1) {
# Do we have a full header in the buffer?
# This is before sysread so we don't read if we have a pipelined request
# waiting in the buffer
if (defined($self->{client}->{inputbuf})) { #my fix
last if $self->{client}->{inputbuf} =~ /$CRLF$CRLF/s;
}
Cheers,
Tyler
RT for rt.cpan.org