diff options
| author | Gerard Goossen <gerard@tty.nl> | 2007-03-29 20:10:42 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-06 13:19:44 +0000 |
| commit | e74e6b3dcb5d67fa6d1b58661e5e4e1df0f492fe (patch) | |
| tree | e1fd2cc0c78a4a85899c3cefd6688257b7be08b8 /toke.c | |
| parent | fe578d7fdd84ab0398dc36da7f84e59e1f2bb290 (diff) | |
| download | perl-e74e6b3dcb5d67fa6d1b58661e5e4e1df0f492fe.tar.gz | |
madprop about forced words
Message-ID: <20070329161042.GG20231@ostwald>
p4raw-id: //depot/perl@30850
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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)); |