From b9d36d986dd6ddc6f8de39e8f577bde502ece278 Mon Sep 17 00:00:00 2001
From: Ricardo Signes <rjbs@cpan.org>
Date: Sat, 14 Jun 2014 00:16:58 -0400
Subject: [PATCH 4/8] do not be fooled by addresses in the phrase

---
 t/tests.t | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/t/tests.t b/t/tests.t
index 038aaec..5ce5767 100644
--- a/t/tests.t
+++ b/t/tests.t
@@ -1618,7 +1618,17 @@ my @list = (
         undef,
       ],
     ],
-  ]
+  ],
+  [
+    q{"<fake-- ATAT --bogus.biz>" <real-- ATAT --actual.mil>},
+    [
+      [
+        '<fake-- ATAT --bogus.biz>',
+        'real-- ATAT --actual.mil',
+        undef,
+      ],
+    ],
+  ],
 );
 
 my $tests = 1;
-- 
2.0.0