blob: 4fc43a0874ec07189e1c2447a79b727c5e9fd3fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
$NetBSD: patch-ab,v 1.1 2009/04/02 18:10:39 tez Exp $
diff -ruN lib/Mail/Mbox/MessageParser/Grep.pm.orig lib/Mail/Mbox/MessageParser/Grep.pm > ../../patches/patch-ab
--- lib/Mail/Mbox/MessageParser/Grep.pm.orig 2009-03-31 16:21:34.719068900 -0500
+++ lib/Mail/Mbox/MessageParser/Grep.pm 2009-03-31 16:23:08.691314600 -0500
@@ -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;
|
