# Fix a bug on sockname of IO::Socket, that block the app for multi childs with
# the same server opened. Or for a GLOB blessed in a package different than
# IO::Socket, since the socket of the server is blessed to HTTP::Daemon! (Bug saw only on Win32).

if ( $^O =~ /(?:^ms|win|dos)/i ) {
  eval(q`
    package HTTP::Daemon ;
    sub sockname {
      #getsockname($_[0]);
      getsockname( fileno($_[0]) );
    }
  `);
}