From ee7b85091c194bb20c01eafdd78184de65c65fcbbabd6f152aa74dec1995c49b Mon Sep 17 00:00:00 2001 From: OBS User unknown Date: Fri, 22 Feb 2008 00:44:07 +0000 Subject: [PATCH] OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Mail-Mbox-MessageParser?expand=0&rev=2 --- Mail-Mbox-MessageParser-1.5000-perl5.10.diff | 76 ++++++++++++++++++++ perl-Mail-Mbox-MessageParser.changes | 5 ++ perl-Mail-Mbox-MessageParser.spec | 33 +++++---- 3 files changed, 100 insertions(+), 14 deletions(-) create mode 100644 Mail-Mbox-MessageParser-1.5000-perl5.10.diff diff --git a/Mail-Mbox-MessageParser-1.5000-perl5.10.diff b/Mail-Mbox-MessageParser-1.5000-perl5.10.diff new file mode 100644 index 0000000..4cacc34 --- /dev/null +++ b/Mail-Mbox-MessageParser-1.5000-perl5.10.diff @@ -0,0 +1,76 @@ +--- lib/Mail/Mbox/MessageParser/Grep.pm ++++ lib/Mail/Mbox/MessageParser/Grep.pm +@@ -103,7 +103,7 @@ + dprint "Reading mailbox prologue using grep"; + + $self->_read_until_match( +- qr/$Mail::Mbox::MessageParser::Config{'from_pattern'}/,0); ++ qr/$Mail::Mbox::MessageParser::Config{'from_pattern'}/m,0); + + my $start_of_email = pos($self->{'READ_BUFFER'}); + $self->{'prologue'} = substr($self->{'READ_BUFFER'}, 0, $start_of_email); +@@ -241,7 +241,7 @@ + # edge of the newly read buffer contains the start of a new header. I + # believe the RFC says header lines can be at most 90 characters long. + unless ($self->_read_until_match( +- qr/$Mail::Mbox::MessageParser::Config{'from_pattern'}/,90)) ++ qr/$Mail::Mbox::MessageParser::Config{'from_pattern'}/m,90)) + { + $self->{'END_OF_EMAIL'} = length($self->{'READ_BUFFER'}); + return; +@@ -289,7 +289,7 @@ + # 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; +@@ -325,7 +325,7 @@ + { + my $self = shift; + +- $self->_read_until_match(qr/$self->{'endline'}$self->{'endline'}/,0) ++ $self->_read_until_match(qr/$self->{'endline'}$self->{'endline'}/m,0) + or return 0; + + $self->{'START_OF_BODY'} = +--- lib/Mail/Mbox/MessageParser/Perl.pm ++++ lib/Mail/Mbox/MessageParser/Perl.pm +@@ -94,7 +94,7 @@ + dprint "Reading mailbox prologue using Perl"; + + $self->_read_until_match( +- qr/$Mail::Mbox::MessageParser::Config{'from_pattern'}/,0); ++ qr/$Mail::Mbox::MessageParser::Config{'from_pattern'}/m,0); + + my $start_of_email = pos($self->{'READ_BUFFER'}); + $self->{'prologue'} = substr($self->{'READ_BUFFER'}, 0, $start_of_email); +@@ -217,7 +217,7 @@ + if length($self->{'READ_BUFFER'}) < $backup_amount; + + unless ($self->_read_until_match( +- qr/$Mail::Mbox::MessageParser::Config{'from_pattern'}/,$backup_amount)) ++ qr/$Mail::Mbox::MessageParser::Config{'from_pattern'}/m,$backup_amount)) + { + $self->{'END_OF_EMAIL'} = length($self->{'READ_BUFFER'}); + return; +@@ -265,7 +265,7 @@ + # 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; +@@ -298,7 +298,7 @@ + { + my $self = shift; + +- $self->_read_until_match(qr/$self->{'endline'}$self->{'endline'}/,0) ++ $self->_read_until_match(qr/$self->{'endline'}$self->{'endline'}/m,0) + or return 0; + + $self->{'START_OF_BODY'} = diff --git a/perl-Mail-Mbox-MessageParser.changes b/perl-Mail-Mbox-MessageParser.changes index 2dfbc9c..0752d6f 100644 --- a/perl-Mail-Mbox-MessageParser.changes +++ b/perl-Mail-Mbox-MessageParser.changes @@ -1,3 +1,8 @@ +------------------------------------------------------------------- +Thu Feb 21 13:24:46 CET 2008 - anicka@suse.cz + +- fix build with perl 5.10 + ------------------------------------------------------------------- Mon Jan 15 10:57:55 CET 2007 - anicka@suse.cz diff --git a/perl-Mail-Mbox-MessageParser.spec b/perl-Mail-Mbox-MessageParser.spec index 20e1f23..890ed38 100644 --- a/perl-Mail-Mbox-MessageParser.spec +++ b/perl-Mail-Mbox-MessageParser.spec @@ -1,7 +1,7 @@ # # spec file for package perl-Mail-Mbox-MessageParser (Version 1.5000) # -# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine # package are under the same license as the package itself. # @@ -10,17 +10,19 @@ # norootforbuild + Name: perl-Mail-Mbox-MessageParser BuildRequires: perl-FileHandle-Unget Version: 1.5000 -Release: 1 +Release: 51 Summary: A fast and simple mbox folder reader -License: GNU General Public License (GPL) -URL: http://cpan.org/modules/by-module/Mail/ +License: GPL v2 or later +Url: http://cpan.org/modules/by-module/Mail/ Group: Development/Libraries/Perl Requires: perl-FileHandle-Unget -Autoreqprov: on +AutoReqProv: on Source: Mail-Mbox-MessageParser-%{version}.tar.bz2 +Patch: Mail-Mbox-MessageParser-1.5000-perl5.10.diff BuildRoot: %{_tmppath}/%{name}-%{version}-build %description @@ -36,6 +38,7 @@ Authors: %prep %setup -q -n Mail-Mbox-MessageParser-%{version} +%patch %build perl Makefile.PL INSTALLDIRS=site \ @@ -58,8 +61,10 @@ make DESTDIR=$RPM_BUILD_ROOT install_vendor %{perl_vendorarch}/auto/Mail /var/adm/perl-modules/%{name} -%changelog -n perl-Mail-Mbox-MessageParser -* Mon Jan 15 2007 - anicka@suse.cz +%changelog +* Thu Feb 21 2008 anicka@suse.cz +- fix build with perl 5.10 +* Mon Jan 15 2007 anicka@suse.cz - update to 1.5000 * The Cache and Grep implementations now detect when changes have occurred to the file being parsed, and automatically @@ -75,13 +80,13 @@ make DESTDIR=$RPM_BUILD_ROOT install_vendor * read_next_email now returns undef on end of file. * Simplified code by removing end_of_file attribute of parser objects. -* Thu Sep 14 2006 - anicka@suse.cz +* Thu Sep 14 2006 anicka@suse.cz - update to 1.4005 * Fixed a bug where emails with a line near the end that start with "From " would cause the Grep implementation to go into an infinite loop. * Fixed some minor coding style issues. -* Wed Jul 12 2006 - anicka@suse.cz +* Wed Jul 12 2006 anicka@suse.cz - update to 1.4004 * Fixed a bug where, when emails are incomplete, the Perl parser would cache incorrect information, causing the Cache @@ -89,13 +94,13 @@ make DESTDIR=$RPM_BUILD_ROOT install_vendor to use the invalid information. * Improved the behavior for multi-part emails that lack a valid ending boundaries. -* Wed Jan 25 2006 - mls@suse.de +* Wed Jan 25 2006 mls@suse.de - converted neededforbuild to BuildRequires -* Wed Aug 03 2005 - cthiel@suse.de +* Wed Aug 03 2005 cthiel@suse.de - update to version 1.4001 -* Sun Jul 31 2005 - cthiel@suse.de +* Sun Jul 31 2005 cthiel@suse.de - update to version 1.4000 -* Mon Jul 18 2005 - rommel@suse.de +* Mon Jul 18 2005 rommel@suse.de - update to version 1.2130 (requirement by grepmail) -* Tue Jun 22 2004 - rommel@suse.de +* Tue Jun 22 2004 rommel@suse.de - initial checkin