Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib/MHonArc
In directory subversions:/tmp/cvs-serv11058/MHonArc
Modified Files:
RFC822.pm
Log Message:
BUG FIX #2738: Explicitly added check for end-of-string for quoted
tokens to prevent infinite loop.
Index: RFC822.pm
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/MHonArc/RFC822.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** RFC822.pm 4 Jan 2003 03:01:56 -0000 1.1
--- RFC822.pm 7 Mar 2003 08:03:41 -0000 1.2
***************
*** 146,155 ****
# a quoted string.
# XXX we don't prohibit bare CR.
! s/^(\"($qp_or_bs_end|[^\\"])*\")//o;
push (@outtoks, $1);
} elsif ($firstchar eq '[') {
# a domain literal.
# XXX we don't prohibit bare CR or '['.
! s/^(\[($qp_or_bs_end|[^\\\]])*(\]|$))//o;
push (@outtoks, $1);
} elsif ($firstchar eq '(') {
--- 146,155 ----
# a quoted string.
# XXX we don't prohibit bare CR.
! s/^(\"(?:$qp_or_bs_end|[^\\"])*(?:\"|\Z))//o;
push (@outtoks, $1);
} elsif ($firstchar eq '[') {
# a domain literal.
# XXX we don't prohibit bare CR or '['.
! s/^(\[(?:$qp_or_bs_end|[^\\\]])*(?:\]|$))//o;
push (@outtoks, $1);
} elsif ($firstchar eq '(') {
---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV