summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-09-07 15:21:56 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-09-07 15:21:56 +0000
commitf0092767b46f7b0bc47053dd358d8afb8d78a9a7 (patch)
tree785288d66c6ff179ee9c52219162843060785b32 /toke.c
parentd7d7d533fb289d8ec4fa1b5fb02f927ed0cb90cc (diff)
downloadperl-f0092767b46f7b0bc47053dd358d8afb8d78a9a7.tar.gz
Typo fix in #ifdef
p4raw-id: //depot/perl@28804
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index a1bd2c4fd7..3fec508a52 100644
--- a/toke.c
+++ b/toke.c
@@ -2587,7 +2587,7 @@ S_intuit_method(pTHX_ char *start, GV *gv, CV *cv)
len = start - SvPVX(PL_linestr);
#endif
s = PEEKSPACE(s);
-#ifdef PERLMAD
+#ifdef PERL_MAD
start = SvPVX(PL_linestr) + len;
#endif
PL_bufptr = start;