From 567fe5a0787131e9f17324e0651ef38e1def2c5a Mon Sep 17 00:00:00 2001
From: Tom Callaway <spot@fedoraproject.org>
Date: Feb 09 2008 16:07:19 +0000
Subject: fix for perl 5.10


---

diff --git a/Mail-Mbox-MessageParser-1.5000-ANDK-01.patch b/Mail-Mbox-MessageParser-1.5000-ANDK-01.patch
new file mode 100644
index 0000000..50488d6
--- /dev/null
+++ b/Mail-Mbox-MessageParser-1.5000-ANDK-01.patch
@@ -0,0 +1,36 @@
+diff -urp Mail-Mbox-MessageParser-1.5000/lib/Mail/Mbox/MessageParser/Config.pm Mail-Mbox-MessageParser-1.5000-PF1XEm/lib/Mail/Mbox/MessageParser/Config.pm
+--- Mail-Mbox-MessageParser-1.5000/lib/Mail/Mbox/MessageParser/Config.pm	2007-01-11 14:43:55.000000000 +0100
++++ Mail-Mbox-MessageParser-1.5000-PF1XEm/lib/Mail/Mbox/MessageParser/Config.pm	2008-02-09 09:13:18.000000000 +0100
+@@ -19,7 +19,7 @@ $VERSION = sprintf "%d.%02d%02d", q/0.1.
+ 
+   'read_chunk_size' => 20000,
+ 
+-  'from_pattern' => q/(?x)^
++  'from_pattern' => q/(?mx)^
+     (From\s
+       # Skip names, months, days
+       (?> [^:\n]+ )
+diff -urp Mail-Mbox-MessageParser-1.5000/lib/Mail/Mbox/MessageParser/Grep.pm Mail-Mbox-MessageParser-1.5000-PF1XEm/lib/Mail/Mbox/MessageParser/Grep.pm
+--- Mail-Mbox-MessageParser-1.5000/lib/Mail/Mbox/MessageParser/Grep.pm	2007-01-11 15:37:20.000000000 +0100
++++ Mail-Mbox-MessageParser-1.5000-PF1XEm/lib/Mail/Mbox/MessageParser/Grep.pm	2008-02-09 09:59:11.000000000 +0100
+@@ -289,7 +289,7 @@ sub _read_email_parts
+   # RFC 1521 says the boundary can be no longer than 70 characters. Back up a
+   # little more than that.
+   my $endline = $self->{'endline'};
+-  $self->_read_until_match(qr/^--\Q$boundary\E--$endline/,76)
++  $self->_read_until_match(qr/^--\Q$boundary\E--$endline/m,76)
+     or return 0;
+ 
+   return 1;
+diff -urp Mail-Mbox-MessageParser-1.5000/lib/Mail/Mbox/MessageParser/Perl.pm Mail-Mbox-MessageParser-1.5000-PF1XEm/lib/Mail/Mbox/MessageParser/Perl.pm
+--- Mail-Mbox-MessageParser-1.5000/lib/Mail/Mbox/MessageParser/Perl.pm	2007-01-11 15:37:26.000000000 +0100
++++ Mail-Mbox-MessageParser-1.5000-PF1XEm/lib/Mail/Mbox/MessageParser/Perl.pm	2008-02-09 10:00:26.000000000 +0100
+@@ -265,7 +265,7 @@ sub _read_email_parts
+   # RFC 1521 says the boundary can be no longer than 70 characters. Back up a
+   # little more than that.
+   my $endline = $self->{'endline'};
+-  $self->_read_until_match(qr/^--\Q$boundary\E--$endline/,76)
++  $self->_read_until_match(qr/^--\Q$boundary\E--$endline/m,76)
+     or return 0;
+ 
+   return 1;
diff --git a/perl-Mail-Mbox-MessageParser.spec b/perl-Mail-Mbox-MessageParser.spec
index a7f4079..3fa8146 100644
--- a/perl-Mail-Mbox-MessageParser.spec
+++ b/perl-Mail-Mbox-MessageParser.spec
@@ -1,11 +1,13 @@
 Summary:	A fast and simple mbox folder reader
 Name:		perl-Mail-Mbox-MessageParser
 Version:	1.5000
-Release:	4%{?dist}
+Release:	5%{?dist}
 License:	GPL+
 Group:		Development/Libraries
 Url:		http://sourceforge.net/projects/m-m-msgparser/
 Source0:	http://dl.sf.net/m-m-msgparser/Mail-Mbox-MessageParser-%{version}.tar.gz
+# http://cpan.llarian.net/authors/id/A/AN/ANDK/patches/Mail-Mbox-MessageParser-1.5000-ANDK-01.patch.gz
+Patch0:		Mail-Mbox-MessageParser-1.5000-ANDK-01.patch
 BuildRoot:	%{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildArch:	noarch
 Requires:	grep, gzip, bzip2, /usr/bin/diff
@@ -20,6 +22,7 @@ information, GNU grep, or highly optimized Perl.
 
 %prep
 %setup -q -n Mail-Mbox-MessageParser-%{version}
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor \
@@ -51,6 +54,9 @@ information, GNU grep, or highly optimized Perl.
 %{_mandir}/man3/Mail::Mbox::MessageParser*
 
 %changelog
+* Sat Feb  9 2008 Tom "spot" Callaway <tcallawa@redhat.com> 1.5000-5
+- fix for perl 5.10 (Andreas Koenig)
+
 * Thu Feb  7 2008 Tom "spot" Callaway <tcallawa@redhat.com> 1.5000-4
 - rebuild for new perl