From 63575281672bbbaaf04505eb965051807623f028 Mon Sep 17 00:00:00 2001 From: Gerard Goossen Date: Thu, 19 Apr 2007 15:33:21 +0200 Subject: Re: [PATCH] madprop about forced words Message-ID: <20070419113321.GE19244@ostwald> p4raw-id: //depot/perl@30992 --- toke.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index 0485df18f9..d5fbd0a4ca 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)); -- cgit v1.2.1