From: Gerard Goossen <gerard@tty.nl>
Date: Thu, 29 Mar 2007 18:10:42 +0000 (+0200)
Subject: madprop about forced words
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e74e6b3dcb5d67fa6d1b58661e5e4e1df0f492fe;p=p5sagit%2Fp5-mst-13.2.git

madprop about forced words
Message-ID: <20070329161042.GG20231@ostwald>

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

diff --git a/toke.c b/toke.c
index 63fdbfa..5a79dcd 100644
--- a/toke.c
+++ b/toke.c
@@ -1364,6 +1364,8 @@ S_force_word(pTHX_ register char *start, int token, int check_keyword, int allow
 		PL_expect = XOPERATOR;
 	    }
 	}
+	if (PL_madskills)
+	    curmad('B', newSVpvs( "forced" ));
 	NEXTVAL_NEXTTOKE.opval
 	    = (OP*)newSVOP(OP_CONST,0,
 			   S_newSV_maybe_utf8(aTHX_ PL_tokenbuf, len));