Re: What is this MAD stuff all about?

Message-ID: <20070313001511.GJ6001@bort.ca>
Date: Mon, 12 Mar 2007 20:15:12 -0400

p4raw-id: //depot/perl@30592

diff --git a/toke.c b/toke.c
index c862b16..ee7776f 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -3906,10 +3906,11 @@ Perl_yylex(pTHX)
 #endif
 #ifdef PERL_MAD
        PL_realtokenstart = -1;
-       s = SKIPSPACE0(s);
-#else
-       s++;
+       if (!PL_thiswhite)
+           PL_thiswhite = newSVpvs("");
+       sv_catpvn(PL_thiswhite, s, 1);
 #endif
+       s++;
        goto retry;
     case '#':
     case '\n':