File Mail-Mbox-MessageParser-1.5000-perl5.10.diff of Package perl-Mail-Mbox-MessageParser

Overview Repositories Revisions Requests Users Attributes Meta

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

Places

File Mail-Mbox-MessageParser-1.5000-perl5.10.diff of Package perl-Mail-Mbox-MessageParser

Places