forked from pool/perl-Mail-Mbox-MessageParser
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Mail-Mbox-MessageParser?expand=0&rev=2
This commit is contained in:
OBS User unknown
committed by
Git OBS Bridge
Git OBS Bridge
parent
28960935cf
commit
ee7b85091c
76
Mail-Mbox-MessageParser-1.5000-perl5.10.diff
Normal file
76
Mail-Mbox-MessageParser-1.5000-perl5.10.diff
Normal file
@@ -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'} =
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user