Bug#651049: libnet-server-perl: close() on unopened filehandle HAND at /usr/lib/perl/5.14/IO/Handle.pm line 126.

[Gonéri Le Bouder]

Package: libnet-server-perl
Version: 0.99-3
Severity: normal

Hello,


This script triggers a warning in Net::Server:
----------------------------
#!/usr/bin/perl -w

use strict;
use warnings;

use Net::Server::INET;

use base qw(Net::Server::INET Net::Server::HTTP);
__PACKAGE__->run( log_level => 0, group => 0, user => 0);

sub process_request {
   my $self = shift;

   print "HTTP/1.1 200 OK\n";
   print "Content-type: text/html\n\n";
   print "foobar\n";


}
----------------------------
tosh-r630:~/fusioninventory/agent (2.2.x)$LC_ALL=C curl -vvv http://localhost:62354/
* About to connect() to localhost port 62354 (#0)
*   Trying 127.0.0.1... connected
> GET / HTTP/1.1
> User-Agent: curl/7.23.1 (x86_64-pc-linux-gnu) libcurl/7.23.1 OpenSSL/1.0.0e zlib/1.2.3.4 libidn/1.23 libssh2/1.2.8 librtmp/2.3
> Host: localhost:62354
> Accept: */*
> 
* additional stuff not fine transfer.c:1036: 0 0
* HTTP 1.1 or later with persistent connection, pipelining supported
< HTTP/1.1 200 OK
< Content-type: text/html
* no chunk, no close, no size. Assume close to signal end
< 
foobar
close() on unopened filehandle HAND at /usr/lib/perl/5.14/IO/Handle.pm line 126.
* Recv failure: Connection reset by peer
* Closing connection #0
curl: (56) Recv failure: Connection reset by peer


Best regards,

-- System Information:
Debian Release: 6.0.3
  APT prefers stable
  APT policy: (500, 'stable')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.32-5-amd64 (SMP w/1 CPU core)
Locale: LANG=fr_FR.UTF-8, LC_CTYPE=fr_FR.UTF-8 (charmap=UTF-8) (ignored: LC_ALL set to fr_FR.UTF-8)
Shell: /bin/sh linked to /bin/dash