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

@@ -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'} =

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
 

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)
+License:        GPL v2 or later
-URL:            http://cpan.org/modules/by-module/Mail/
+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
+%changelog
-* Mon Jan 15 2007 - anicka@suse.cz
+* 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