Re: [PATCH] madprop about forced words

[perl5.git] / toke.c

diff --git a/toke.c b/toke.c
index 0485df1..d5fbd0a 100644 (file)
--- 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)
            }
        }
        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));
        NEXTVAL_NEXTTOKE.opval
            = (OP*)newSVOP(OP_CONST,0,
                           S_newSV_maybe_utf8(aTHX_ PL_tokenbuf, len));