diff options
Diffstat (limited to 'dev-perl/Mail-Builder/files/1.16-escape-at-for-perl-5.8.patch')
| -rw-r--r-- | dev-perl/Mail-Builder/files/1.16-escape-at-for-perl-5.8.patch | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/dev-perl/Mail-Builder/files/1.16-escape-at-for-perl-5.8.patch b/dev-perl/Mail-Builder/files/1.16-escape-at-for-perl-5.8.patch new file mode 100644 index 000000000000..f1d01be226e2 --- /dev/null +++ b/dev-perl/Mail-Builder/files/1.16-escape-at-for-perl-5.8.patch @@ -0,0 +1,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 |