Subject: | Bug#292526: libpoe-perl: Incorrect handling of undocumented UNIX socket support in POE::Component::Server::TCP |
From: | MartÃn Ferrari <martin.ferrari [...] gmail.com> |
To: | Debian Bug Tracking System <submit [...] bugs.debian.org> |
Date: | Thu, 27 Jan 2005 14:02:52 -0300 |
Package: libpoe-perl
Version: 2:0.29-1
Severity: minor
Tags: patch
This module has an (undocumented) feature to manage UNIX domain sockets,
just by specifying PF_UNIX or AF_UNIX as Domain, but when used always
throws the following warning:
BindPort ignored for Unix socket at
/usr/share/perl5/POE/Component/Server/TCP.pm line 324
The following patch remedies this by not using BindPort when UNIX domain
sockets are specified.
--- /usr/share/perl5/POE/Component/Server/TCP.pm.orig 2004-08-02 01:23:03.000000000 -0300
+++ /usr/share/perl5/POE/Component/Server/TCP.pm 2005-01-27 13:27:04.000000000 -0300
@@ -322,7 +322,7 @@
}
$_[HEAP]->{listener} = POE::Wheel::SocketFactory->new
- ( BindPort => $port,
+ ( ($domain == AF_UNIX or $domain == PF_UNIX) ? () : (BindPort => $port),
BindAddress => $address,
SocketDomain => $domain,
Reuse => 'yes',
-- System Information:
Debian Release: 3.1
APT prefers testing
APT policy: (900, 'testing'), (1, 'experimental')
Architecture: i386 (i686)
Kernel: Linux 2.6.8-1-686
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Versions of packages libpoe-perl depends on:
ii libfilter-perl 1.30-2 Perl source filters
ii perl 5.8.4-3 Larry Wall's Practical Extraction
-- no debconf information