fix CPAN RT#20726 (RH #200450), allowing Mail::Util::read_mbox() to open

files with weird names

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");

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.