File Mail-Mbox-MessageParser-1.5000-perl5.10.diff of Package perl-Mail-Mbox-MessageParser
--- 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'} =