From: Chip Salzenberg <chip@pobox.com>
Date: Wed, 26 Aug 2009 21:05:15 +0000 (-0700)
Subject: set utf8 bit on inferred method names when C<use utf8>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ff3e83b;p=p5sagit%2Fp5-mst-13.2.git

set utf8 bit on inferred method names when C<use utf8>
---

diff --git a/toke.c b/toke.c
index 734c516..24b3c40 100644
--- a/toke.c
+++ b/toke.c
@@ -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));