diff options
author | Brian Fraser <fraserbn@gmail.com> | 2011-08-06 10:50:34 +0100 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-22 20:23:55 -0700 |
commit | 58576270560ee142457377108b60beef6009e7cc (patch) | |
tree | 43d9b8f36fcf253c123d3a2f44afbf59f75a4158 /toke.c | |
parent | 4bca4ee0177ebddff4006e8fdc3f36628349ae11 (diff) | |
download | perl-58576270560ee142457377108b60beef6009e7cc.tar.gz |
toke.c: '"(my|state)" variable %s can't be in a package' cleanup.
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -8479,8 +8479,9 @@ S_pending_ident(pTHX) } else { if (has_colon) - yyerror(Perl_form(aTHX_ PL_no_myglob, - PL_in_my == KEY_my ? "my" : "state", PL_tokenbuf)); + yyerror_pv(Perl_form(aTHX_ PL_no_myglob, + PL_in_my == KEY_my ? "my" : "state", PL_tokenbuf), + UTF ? SVf_UTF8 : 0); pl_yylval.opval = newOP(OP_PADANY, 0); pl_yylval.opval->op_targ = allocmy(PL_tokenbuf, tokenbuf_len, |