From a91428a4cd72ac808bcbe6f7ef7fc9fe7971c938 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 22 Aug 2012 15:59:23 -0700 Subject: [PATCH] toke.c: Extreme paranoia --- toke.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/toke.c b/toke.c index 48d4f3d..4997420 100644 --- a/toke.c +++ b/toke.c @@ -9715,7 +9715,9 @@ S_scan_heredoc(pTHX_ register char *s) /* s now points to the newline after the heredoc terminator. d points to the newline before the body of the heredoc. */ - if (PL_sublex_info.re_eval_start) { + /* See the Paranoia note in case LEX_INTERPEND in yylex, for why we + check PL_sublex_info.re_eval_str. */ + if (PL_sublex_info.re_eval_start || PL_sublex_info.re_eval_str) { /* Set aside the rest of the regexp */ if (!PL_sublex_info.re_eval_str) PL_sublex_info.re_eval_str = -- 1.8.3.1