summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2013-09-01 14:51:29 -0700
committerFather Chrysostomos <sprout@cpan.org>2013-09-01 14:51:29 -0700
commitf0feb466830b0a22719e82175d819093f785b375 (patch)
treedd49305ef342ca6f0cd12ca05433962aabe63526 /toke.c
parent3df5c4b513c5e5c2f25d831f556f2a1c5693ce98 (diff)
downloadperl-f0feb466830b0a22719e82175d819093f785b375.tar.gz
toke.c:scan_const: Don’t use PL_bufptr
PL_bufptr is passed in as an argument, yet scan_const was some- times looking at its argument (start) and sometimes using PL_bufptr directly. This is just confusing.
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index 31eefeac0e..d6df9edaef 100644
--- a/toke.c
+++ b/toke.c
@@ -3855,8 +3855,8 @@ S_scan_const(pTHX_ char *start)
}
/* return the substring (via pl_yylval) only if we parsed anything */
- if (s > PL_bufptr) {
- char *s2 = PL_bufptr;
+ if (s > start) {
+ char *s2 = start;
for (; s2 < s; s2++) {
if (*s2 == '\n')
COPLINE_INC_WITH_HERELINES;