3 files changed, 32 insertions, 1 deletions

diff --git a/mail/p5-Sendmail-Milter/Makefile b/mail/p5-Sendmail-Milter/Makefile
index c212a52f87b6..12700e42596d 100644
--- a/mail/p5-Sendmail-Milter/Makefile
+++ b/mail/p5-Sendmail-Milter/Makefile
@@ -3,7 +3,7 @@
 
 PORTNAME=	Sendmail-Milter
 PORTVERSION=	0.18
-PORTREVISION=	1
+PORTREVISION=	2
 CATEGORIES=	mail perl5
 MASTER_SITES=	CPAN
 PKGNAMEPREFIX=	p5-
diff --git a/mail/p5-Sendmail-Milter/files/patch-Milter.pm b/mail/p5-Sendmail-Milter/files/patch-Milter.pm
new file mode 100644
index 000000000000..a345ef359a58
--- /dev/null
+++ b/mail/p5-Sendmail-Milter/files/patch-Milter.pm
@@ -0,0 +1,17 @@
+--- Milter.pm.orig	2001-10-10 04:21:22 UTC
++++ Milter.pm
+@@ -423,10 +423,10 @@ calls. See B<Milter Context Functions> f
+ =item B<connect_callback> CTX, HOSTNAME, SOCKADDR_IN
+ 
+ Invoked on each connection. HOSTNAME is the host domain name, as determined by
+-a reverse lookup on the host address. SOCKADDR_IN is the AF_INET portion of the
+-host address, as determined by a B<getpeername(2)> syscall on the SMTP
+-socket. You can use B<Socket::unpack_sockaddr_in()> to unpack it into a port
+-and IP address.
++a reverse lookup on the host address. SOCKADDR_IN is the AF_INET or AF_INET6
++portion of the host address, as determined by a B<getpeername(2)> syscall on
++the SMTP socket. You can use B<Socket::unpack_sockaddr_in()> or
++B<Socket6::unpack_sockaddr_in6()> to unpack it into a port and IP address.
+ 
+ This callback should return one of the B<SMFIS_*> result codes.
+ 
diff --git a/mail/p5-Sendmail-Milter/files/patch-callbacks.c b/mail/p5-Sendmail-Milter/files/patch-callbacks.c
new file mode 100644
index 000000000000..c42f07bac09e
--- /dev/null
+++ b/mail/p5-Sendmail-Milter/files/patch-callbacks.c
@@ -0,0 +1,14 @@
+--- callbacks.c.orig	2000-07-19 06:20:36 UTC
++++ callbacks.c
+@@ -490,6 +490,11 @@ callback_ssockaddr(pTHX_ SV *callback, S
+ 		XPUSHs(sv_2mortal(newSVpvn((char *)arg_sa,
+ 					   sizeof(_SOCK_ADDR))));
+ 	}
++	else if (arg_sa->sa_family == AF_INET6)
++	{
++		XPUSHs(sv_2mortal(newSVpvn((char *)arg_sa,
++				   sizeof(struct sockaddr_in6))));
++	}
+ 	else
+ 	{
+ 		XPUSHs(sv_2mortal(newSVsv(&PL_sv_undef)));