diff options
| author | Gerard Goossen <gerard@tty.nl> | 2007-04-19 15:33:21 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-20 11:55:37 +0000 |
| commit | 63575281672bbbaaf04505eb965051807623f028 (patch) | |
| tree | ad41d64123cdab48e372d15461112d2859725d1d /toke.c | |
| parent | ebc6a117822d587e210a6c30233480f33d9c18d8 (diff) | |
| download | perl-63575281672bbbaaf04505eb965051807623f028.tar.gz | |
Re: [PATCH] madprop about forced words
Message-ID: <20070419113321.GE19244@ostwald>
p4raw-id: //depot/perl@30992
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)); |