Typo fix in #ifdef

p4raw-id: //depot/perl@28804

diff --git a/toke.c b/toke.c
index a1bd2c4..3fec508 100644 (file)
--- 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;