File: 0001-dont-use-sub_inwhat-RT-102918.patch

package info (click to toggle)
libdevel-declare-perl 0.006017-1%2Bdeb8u1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-updates
  • size: 428 kB
  • ctags: 249
  • sloc: ansic: 752; perl: 608; makefile: 2
file content (25 lines) | stat: -rw-r--r-- 784 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
From 7fc37409865dab1d5bbd358c57be8ce5c8b00a8b Mon Sep 17 00:00:00 2001
From: Matthew Horsfall <WolfSage@cpan.org>
Date: Mon, 23 Mar 2015 15:27:48 -0400
Subject: [PATCH] dont use sub_inwhat (RT#102918)

---
 stolen_chunk_of_toke.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/stolen_chunk_of_toke.c b/stolen_chunk_of_toke.c
index c667eaa..b9e5037 100644
--- a/stolen_chunk_of_toke.c
+++ b/stolen_chunk_of_toke.c
@@ -342,7 +342,7 @@ S_skipspace(pTHX_ register char *s, int incline)
 	 * of the buffer, we're not reading from a source filter, and
 	 * we're in normal lexing mode
 	 */
-	if (s < PL_bufend || !PL_rsfp || PL_sublex_info.sub_inwhat ||
+	if (s < PL_bufend || !PL_rsfp || PL_lex_inwhat ||
 		PL_lex_state == LEX_FORMLINE)
 	    return s;
 
-- 
2.1.4