Mailinglist Archive: opensuse-commit (1092 mails)

< Previous Next >
commit perl-Mail-Mbox-MessageParser
  • From: root@xxxxxxxxxxxxxxx (h_root)
  • Date: Fri, 22 Feb 2008 01:44:07 +0100
  • Message-id: <20080222004407.689FC6781B8@xxxxxxxxxxxxxxx>

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@xxxxxxx
+
+- 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@xxxxxxx
+%changelog
+* Thu Feb 21 2008 anicka@xxxxxxx
+- fix build with perl 5.10
+* Mon Jan 15 2007 anicka@xxxxxxx
- 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@xxxxxxx
+* Thu Sep 14 2006 anicka@xxxxxxx
- 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@xxxxxxx
+* Wed Jul 12 2006 anicka@xxxxxxx
- 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@xxxxxxx
+* Wed Jan 25 2006 mls@xxxxxxx
- converted neededforbuild to BuildRequires
-* Wed Aug 03 2005 - cthiel@xxxxxxx
+* Wed Aug 03 2005 cthiel@xxxxxxx
- update to version 1.4001
-* Sun Jul 31 2005 - cthiel@xxxxxxx
+* Sun Jul 31 2005 cthiel@xxxxxxx
- update to version 1.4000
-* Mon Jul 18 2005 - rommel@xxxxxxx
+* Mon Jul 18 2005 rommel@xxxxxxx
- update to version 1.2130 (requirement by grepmail)
-* Tue Jun 22 2004 - rommel@xxxxxxx
+* Tue Jun 22 2004 rommel@xxxxxxx
- 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@xxxxxxxxxxxx
For additional commands, e-mail: opensuse-commit+help@xxxxxxxxxxxx

< Previous Next >
This Thread
  • No further messages