dev-perl/Mail-Builder/files/1.16-escape-at-for-perl-5.8.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14

diff --git a/t/008_builder.t b/t/008_builder.t
index bde82ef..5776ba8 100755
--- a/t/008_builder.t
+++ b/t/008_builder.t
@@ -139,7 +139,7 @@ is($mime->head->get('Subject'),'Testmail'."\n");
 is($mime->head->get('From'),'"me" <from2@test.com>'."\n");
 
 is($mime->head->get('Content-Language'),'de'."\n");
-like($mime->head->get('Message-ID'),qr/<[0-9A-Za-z.@-]+>/);
+like($mime->head->get('Message-ID'),qr/<[0-9A-Za-z.\@-]+>/);
 is($mime->parts,2);
 is($mime->parts(0)->mime_type,'application/pdf');
 is($mime->parts(1)->mime_type,'text/plain');
\ No newline at end of file