From 7582cbbb2be844f0b8f4ce4e8817f8e5703eaa04 Mon Sep 17 00:00:00 2001
From: Paul Howarth <pghmcfc@fedoraproject.org>
Date: Fri, 28 Jul 2006 13:47:03 +0000
Subject: [PATCH] fix CPAN RT#20726 (RH #200450), allowing
 Mail::Util::read_mbox() to open     files with weird names

---
 perl-MailTools-1.74-CPAN-20726.patch | 20 ++++++++++++++++++++
 perl-MailTools.spec                  |  4 ++++
 2 files changed, 24 insertions(+)
 create mode 100644 perl-MailTools-1.74-CPAN-20726.patch

diff --git a/perl-MailTools-1.74-CPAN-20726.patch b/perl-MailTools-1.74-CPAN-20726.patch
new file mode 100644
index 0000000..4012ebc
--- /dev/null
+++ b/perl-MailTools-1.74-CPAN-20726.patch
@@ -0,0 +1,20 @@
+--- Mail/Util.pm.orig	2006-01-21 03:16:10.000000000 -0600
++++ Mail/Util.pm	2006-07-27 14:10:14.000000000 -0500
+@@ -13,7 +13,7 @@
+ use Exporter ();
+ 
+ BEGIN {
+-    require 5.000;
++    require 5.006_001;
+ 
+     $VERSION = "1.74";
+ 
+@@ -102,7 +102,7 @@
+     local *FH;
+     local $_;
+ 
+-    open(FH,"< $file") or
++    open(FH,'<',$file) or
+ 	do {
+ 	    require Carp;
+ 	    Carp::croak("cannot open '$file': $!\n");
diff --git a/perl-MailTools.spec b/perl-MailTools.spec
index 5be0351..9f596ec 100644
--- a/perl-MailTools.spec
+++ b/perl-MailTools.spec
@@ -6,6 +6,7 @@ License:        GPL or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/MailTools/
 Source0:        http://search.cpan.org/CPAN/authors/id/M/MA/MARKOV/MailTools-%{version}.tar.gz
+Patch0:		perl-MailTools-1.74-CPAN-20726.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildArch:      noarch
 BuildRequires:  perl(Net::Domain)
@@ -17,6 +18,7 @@ MailTools is a set of Perl modules related to mail applications.
 
 %prep
 %setup -q -n MailTools-%{version}
+%patch0 -p0
 # Set up example scripts
 cd examples
 for file in *.PL
@@ -56,6 +58,8 @@ cd -
 %changelog
 * Fri Jul 28 2008 Paul Howarth <paul@city-fan.org> 1.74-2
 - cosmetic spec file changes
+- fix CPAN RT#20726 (RH #200450), allowing Mail::Util::read_mbox() to open
+  files with weird names
 
 * Wed Mar  1 2006 Ville Skyttä <ville.skytta at iki.fi> - 1.74-1
 - 1.74.