The current code brings up warnings like

  Subroutine main::pack_sockaddr_in6 redefined at
    /usr/share/perl/5.14/Exporter.pm line 67.
    at /usr/bin/qpsmtpd-prefork line 38

when IPv6 is available;

This is fixed by the attached patch. There is actually no need to import
anything from Socket6 in qpsmtpd-forkserver and qpsmtpd-prefork because
nothing is used. And in TcpServer.pm only inet_ntop is required from
Socket6. 


Gruss
Michael

-- 
It's an insane world, but i'm proud to be a part of it. -- Bill Hicks
Common subdirectories: qpsmtpd-0.84.old/config.sample and qpsmtpd-0.84/config.sample
Common subdirectories: qpsmtpd-0.84.old/docs and qpsmtpd-0.84/docs
Common subdirectories: qpsmtpd-0.84.old/lib and qpsmtpd-0.84/lib
Common subdirectories: qpsmtpd-0.84.old/log and qpsmtpd-0.84/log
Common subdirectories: qpsmtpd-0.84.old/plugins and qpsmtpd-0.84/plugins
diff -u qpsmtpd-0.84.old/qpsmtpd-forkserver qpsmtpd-0.84/qpsmtpd-forkserver
--- qpsmtpd-0.84.old/qpsmtpd-forkserver	2010-04-08 07:29:52.000000000 +0200
+++ qpsmtpd-0.84/qpsmtpd-forkserver	2012-11-13 20:28:56.000000000 +0100
@@ -20,10 +20,6 @@
 
 my $has_ipv6 = Qpsmtpd::TcpServer::has_ipv6;
 
-if ($has_ipv6) {
-  eval 'use Socket6';
-}
-
 # Configuration
 my $MAXCONN   = 15;                  # max simultaneous connections
 my @PORT;                            # port number(s)
diff -u qpsmtpd-0.84.old/qpsmtpd-prefork qpsmtpd-0.84/qpsmtpd-prefork
--- qpsmtpd-0.84.old/qpsmtpd-prefork	2010-02-13 06:30:12.000000000 +0100
+++ qpsmtpd-0.84/qpsmtpd-prefork	2012-11-13 20:28:50.000000000 +0100
@@ -31,10 +31,6 @@
 
 my $has_ipv6 = Qpsmtpd::TcpServer::has_ipv6;
 
-if ($has_ipv6) {
-  use Socket6;
-}
-
 #use Time::HiRes qw(gettimeofday tv_interval);
 
 #get available signals
Common subdirectories: qpsmtpd-0.84.old/t and qpsmtpd-0.84/t

Reply via email to