[perl-Mail-MboxParser] Fix failing test (bug #715505)

[Petr Pisar]

commit d6af9bc533637db22679538a607305057ea777e2
Author: Petr Písař <ppisar at redhat.com>
Date:   Thu Jun 23 09:23:01 2011 +0200

    Fix failing test (bug #715505)

 ...0.55-Fix-garbled-attachment-name-RT-66576.patch |   30 ++++++++++++++++++++
 perl-Mail-MboxParser.spec                          |    4 ++
 2 files changed, 34 insertions(+), 0 deletions(-)
---
diff --git a/perl-Mail-MboxParser-0.55-Fix-garbled-attachment-name-RT-66576.patch b/perl-Mail-MboxParser-0.55-Fix-garbled-attachment-name-RT-66576.patch
new file mode 100644
index 0000000..bdfe06f
--- /dev/null
+++ b/perl-Mail-MboxParser-0.55-Fix-garbled-attachment-name-RT-66576.patch
@@ -0,0 +1,30 @@
+From 122efb9b43fe3b918190f1e72a8055240571d58b Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Thu, 23 Jun 2011 09:13:12 +0200
+Subject: [PATCH] Fix garbled attachment name (RT#66576)
+
+---
+ t/10_qpnames.t |    3 ++-
+ 1 files changed, 2 insertions(+), 1 deletions(-)
+
+diff --git a/t/10_qpnames.t b/t/10_qpnames.t
+index 7c9b42c..4db5af6 100755
+--- a/t/10_qpnames.t
++++ b/t/10_qpnames.t
+@@ -1,3 +1,4 @@
++use utf8;
+ use Test;
+ use File::Spec;
+ use strict;
+@@ -12,7 +13,7 @@ my ($msg) = $mb->get_messages;
+ 
+ my $att = $msg->get_attachments;
+ skip(&Mail::MboxParser::Mail::HAVE_MIMEWORDS ? 0 : "Mime::Words not installed",
+-     defined $msg->get_attachments("test þðüýçö characters.txt"));
++     defined $msg->get_attachments("test şğüıçö characters.txt"));
+ 
+ 
+ 
+-- 
+1.7.5.4
+
diff --git a/perl-Mail-MboxParser.spec b/perl-Mail-MboxParser.spec
index 1442e02..66a5d05 100644
--- a/perl-Mail-MboxParser.spec
+++ b/perl-Mail-MboxParser.spec
@@ -6,6 +6,8 @@ License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/Mail-MboxParser/
 Source0:        http://www.cpan.org/authors/id/V/VP/VPARSEVAL/Mail-MboxParser-%{version}.tar.gz
+# Bug #715505, submitted to upstream
+Patch0:         %{name}-0.55-Fix-garbled-attachment-name-RT-66576.patch
 BuildArch:      noarch
 BuildRequires:  perl(ExtUtils::MakeMaker)
 BuildRequires:  perl(MIME::Tools) >= 5
@@ -23,6 +25,7 @@ from MIME::Tools on the appropriate return values.
 
 %prep
 %setup -q -n Mail-MboxParser-%{version}
+%patch0 -p1 -b .attachment_name
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -45,6 +48,7 @@ make test
 %changelog
 * Thu Jun 23 2011 Petr Pisar <ppisar at redhat.com> - 0.55-4
 - Remove obsolete code from spec file
+- Fix failing test (bug #715505)
 
 * Tue Feb 08 2011 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 0.55-3
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild