From: Gerard Goossen <gerard@tty.nl>
Date: Thu, 19 Apr 2007 13:33:21 +0000 (+0200)
Subject: Re: [PATCH] madprop about forced words
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63575281672bbbaaf04505eb965051807623f028;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] madprop about forced words
Message-ID: <20070419113321.GE19244@ostwald>

p4raw-id: //depot/perl@30992
---

diff --git a/op.h b/op.h
index d9d5336..c01bf4d 100644
--- a/op.h
+++ b/op.h
@@ -696,6 +696,7 @@ struct token {
  * E       tr/E/R/, /E/
  * f       folded constant op
  * F       peg op for format
+ * g       op was forced to be a word
  * i       if/unless modifier
  * I       if/elsif/unless statement
  * K       retired kid op
diff --git a/toke.c b/toke.c
index 0485df1..d5fbd0a 100644
--- a/toke.c
+++ b/toke.c
@@ -1365,7 +1365,7 @@ S_force_word(pTHX_ register char *start, int token, int check_keyword, int allow
 	    }
 	}
 	if (PL_madskills)
-	    curmad('B', newSVpvs( "forced" ));
+	    curmad('g', newSVpvs( "forced" ));
 	NEXTVAL_NEXTTOKE.opval
 	    = (OP*)newSVOP(OP_CONST,0,
 			   S_newSV_maybe_utf8(aTHX_ PL_tokenbuf, len));