This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Typo fix in #ifdef
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 7 Sep 2006 15:21:56 +0000 (15:21 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 7 Sep 2006 15:21:56 +0000 (15:21 +0000)
p4raw-id: //depot/perl@28804

toke.c

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;