From c87b95273cf1e431ee48d2242d63c5ffe2f821b6 Mon Sep 17 00:00:00 2001
From: Dan Langille <dvl@FreeBSD.org>
Date: Fri, 4 Jan 2019 19:02:36 +0000
Subject: [PATCH] Add Email::Address::UseXS which is intended for use with
 mail/p5-Email-Sender

Email::Address::UseXS - ensure that any code uses Email::Address::XS instead of Email::Address

To use, simply add use Email::Address::UseXS; in your code before anything that tries to load in Email::Address.

Differential Revision:	https://reviews.freebsd.org/D18479
---
 mail/Makefile                         |  1 +
 mail/p5-Email-Address-UseXS/Makefile  | 21 +++++++++++++++++++++
 mail/p5-Email-Address-UseXS/distinfo  |  3 +++
 mail/p5-Email-Address-UseXS/pkg-descr | 12 ++++++++++++
 mail/p5-Email-Address-UseXS/pkg-plist |  2 ++
 5 files changed, 39 insertions(+)
 create mode 100644 mail/p5-Email-Address-UseXS/Makefile
 create mode 100644 mail/p5-Email-Address-UseXS/distinfo
 create mode 100644 mail/p5-Email-Address-UseXS/pkg-descr
 create mode 100644 mail/p5-Email-Address-UseXS/pkg-plist

diff --git a/mail/Makefile b/mail/Makefile
index c0400466fad4..b0558c457ca8 100644
--- a/mail/Makefile
+++ b/mail/Makefile
@@ -316,6 +316,7 @@
     SUBDIR += p5-Email-Address
     SUBDIR += p5-Email-Address-List
     SUBDIR += p5-Email-Address-Loose
+    SUBDIR += p5-Email-Address-UseXS
     SUBDIR += p5-Email-Address-XS
     SUBDIR += p5-Email-AddressParser
     SUBDIR += p5-Email-Date
diff --git a/mail/p5-Email-Address-UseXS/Makefile b/mail/p5-Email-Address-UseXS/Makefile
new file mode 100644
index 000000000000..1c97ee382479
--- /dev/null
+++ b/mail/p5-Email-Address-UseXS/Makefile
@@ -0,0 +1,21 @@
+# Created by: Dan Langille <dvl@FreeBSD.org>
+# $FreeBSD$
+
+PORTNAME=	Email-Address-UseXS
+PORTVERSION=	1.000
+CATEGORIES=	mail perl5
+MASTER_SITES=	CPAN
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	dvl@FreeBSD.org
+COMMENT=	Ensure that any code uses Email::Address::XS instead of Email::Address
+
+LICENSE=	ART10 GPLv1+
+LICENSE_COMB=	dual
+
+USES=		perl5
+USE_PERL5=	configure
+
+NO_ARCH=	yes
+
+.include <bsd.port.mk>
diff --git a/mail/p5-Email-Address-UseXS/distinfo b/mail/p5-Email-Address-UseXS/distinfo
new file mode 100644
index 000000000000..112dc744f883
--- /dev/null
+++ b/mail/p5-Email-Address-UseXS/distinfo
@@ -0,0 +1,3 @@
+TIMESTAMP = 1544210127
+SHA256 (Email-Address-UseXS-1.000.tar.gz) = b10a52409a2c85b65afcd4ed108233833440d298689bb97a256c75b5b7802df0
+SIZE (Email-Address-UseXS-1.000.tar.gz) = 14040
diff --git a/mail/p5-Email-Address-UseXS/pkg-descr b/mail/p5-Email-Address-UseXS/pkg-descr
new file mode 100644
index 000000000000..1f30b3231347
--- /dev/null
+++ b/mail/p5-Email-Address-UseXS/pkg-descr
@@ -0,0 +1,12 @@
+To use, simply add use Email::Address::UseXS; in your code before anything that
+tries to load in Email::Address.
+
+use Email::Address::UseXS;
+print Email::Address->parse('user@example.com');
+
+Email::Address is dangerous, badly-formed input can cause very slow regex
+expressions (taking minutes or more to run).
+
+See https://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2015-7686 for details.
+
+WWW: https://metacpan.org/pod/Email::Address::UseXS
diff --git a/mail/p5-Email-Address-UseXS/pkg-plist b/mail/p5-Email-Address-UseXS/pkg-plist
new file mode 100644
index 000000000000..9efad1958770
--- /dev/null
+++ b/mail/p5-Email-Address-UseXS/pkg-plist
@@ -0,0 +1,2 @@
+%%SITE_PERL%%/Email/Address/UseXS.pm
+%%PERL5_MAN3%%/Email::Address::UseXS.3.gz