Hello community, here is the log from the commit of package perl-Mail-Mbox-MessageParser checked in at Fri Feb 22 01:44:07 CET 2008. -------- --- perl-Mail-Mbox-MessageParser/perl-Mail-Mbox-MessageParser.changes 2007-01-15 11:04:15.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl-Mail-Mbox-MessageParser/perl-Mail-Mbox-MessageParser.changes 2008-02-21 13:24:55.000000000 +0100 @@ -1,0 +2,5 @@ +Thu Feb 21 13:24:46 CET 2008 - anicka@suse.cz + +- fix build with perl 5.10 + +------------------------------------------------------------------- New: ---- Mail-Mbox-MessageParser-1.5000-perl5.10.diff ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Mail-Mbox-MessageParser.spec ++++++ --- /var/tmp/diff_new_pack.k17278/_old 2008-02-22 01:44:01.000000000 +0100 +++ /var/tmp/diff_new_pack.k17278/_new 2008-02-22 01:44:01.000000000 +0100 @@ -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 @@ %prep %setup -q -n Mail-Mbox-MessageParser-%{version} +%patch %build perl Makefile.PL INSTALLDIRS=site \ @@ -58,8 +61,10 @@ %{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 @@ * 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 @@ 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 ++++++ Mail-Mbox-MessageParser-1.5000-perl5.10.diff ++++++ --- 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'} = ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org