rpms/perl-MailTools/devel perl-MailTools-1.74-CPAN-20726.patch, NONE, 1.1 perl-MailTools.spec, 1.17, 1.18

[Paul Howarth (pghmcfc)]

Author: pghmcfc

Update of /cvs/extras/rpms/perl-MailTools/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv29221

Modified Files:
	perl-MailTools.spec 
Added Files:
	perl-MailTools-1.74-CPAN-20726.patch 
Log Message:
fix CPAN RT#20726 (RH #200450), allowing Mail::Util::read_mbox() to open
files with weird names


perl-MailTools-1.74-CPAN-20726.patch:

--- NEW FILE perl-MailTools-1.74-CPAN-20726.patch ---
--- 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");


Index: perl-MailTools.spec
===================================================================
RCS file: /cvs/extras/rpms/perl-MailTools/devel/perl-MailTools.spec,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- perl-MailTools.spec	28 Jul 2006 13:32:50 -0000	1.17
+++ perl-MailTools.spec	28 Jul 2006 13:47:03 -0000	1.18
@@ -6,6 +6,7 @@
 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 @@
 
 %prep
 %setup -q -n MailTools-%{version}
+%patch0 -p0
 # Set up example scripts
 cd examples
 for file in *.PL
@@ -56,6 +58,8 @@
 %changelog
 * Fri Jul 28 2008 Paul Howarth <paul at 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.