From: Rick Delaney <rick@consumercontact.com>
Date: Mon, 12 Mar 2007 20:15:12 +0000 (-0400)
Subject: Re: What is this MAD stuff all about?
X-Git-Tag: accepted/trunk/20130322.191538~15720
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ac372eb8812f4e3c7fb6318f94dbc2383ba316d4;p=platform%2Fupstream%2Fperl.git

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
--- 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':