twice: Use of uninitialized value $port [rt.cpan.org #82816]

[oalders]

Migrated from rt.cpan.org#82816 (status was 'new')

Requestors:

• bogenstaetter@gmx.de

From http://bogenstaetter.myopenid.com/ on 2013-01-18 21:34:20
:

When using it together with
SOAP::Transport::HTTP::Daemon::ReapForkOnAccept, a warning occurs:
Use of uninitialized value $port in numeric ne (!=) at
C:/Perl/lib/HTTP/Daemon.pm line 51.
Use of uninitialized value $port in concatenation (.) or string at
C:/Perl/lib/HTTP/Daemon.pm line 51.

I had already a look into it and would suggest a simple fix in line 51:
$url .= ":$port" if (defined($port) and $port != $self->_default_port);

(added: "defined($port) and" as well as brackets around the condition).

Thanks for your work!

Marcus

[genio]

The way we're gathering the port should no longer allow this to happen.