diff options
| author | Chip Salzenberg <chip@pobox.com> | 2009-08-26 14:05:15 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@pobox.com> | 2009-08-26 14:05:15 -0700 |
| commit | 8ff3e83ba54cff6118a4f9fd629260c21194f290 (patch) | |
| tree | 20edac5c091b83077a0aee39eed49c182598aadf /toke.c | |
| parent | 09e8634ad8f1eaff4ea056eff21734fc5d54c70d (diff) | |
| download | perl-8ff3e83ba54cff6118a4f9fd629260c21194f290.tar.gz | |
set utf8 bit on inferred method names when C<use utf8>
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2824,7 +2824,7 @@ S_intuit_method(pTHX_ char *start, GV *gv, CV *cv) bare_package: start_force(PL_curforce); NEXTVAL_NEXTTOKE.opval = (OP*)newSVOP(OP_CONST, 0, - newSVpvn(tmpbuf,len)); + S_newSV_maybe_utf8(tmpbuf,len)); NEXTVAL_NEXTTOKE.opval->op_private = OPpCONST_BARE; if (PL_madskills) curmad('X', newSVpvn(start,SvPVX(PL_linestr) + soff - start)); |