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 (file)
--- 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));