From: Brian Fraser <fraserbn@gmail.com>
Date: Sat, 23 Jul 2011 20:29:44 +0000 (-0300)
Subject: toke.c: S_intuit_method, GV-related UTF8 cleanup
X-Git-Tag: v5.15.4~132^2~84
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/38d2cf30405659ad117ac9cdb653b35d0242d0b2

toke.c: S_intuit_method, GV-related UTF8 cleanup
---

diff --git a/toke.c b/toke.c
index e6e8cfe..b05ad96 100644
--- a/toke.c
+++ b/toke.c
@@ -3780,11 +3780,11 @@ S_intuit_method(pTHX_ char *start, GV *gv, CV *cv)
 #endif
 	    goto bare_package;
 	}
-	indirgv = gv_fetchpvn_flags(tmpbuf, len, 0, SVt_PVCV);
+	indirgv = gv_fetchpvn_flags(tmpbuf, len, ( UTF ? SVf_UTF8 : 0 ), SVt_PVCV);
 	if (indirgv && GvCVu(indirgv))
 	    return 0;
 	/* filehandle or package name makes it a method */
-	if (!gv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, 0)) {
+	if (!gv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, UTF ? SVf_UTF8 : 0)) {
 #ifdef PERL_MAD
 	    soff = s - SvPVX(PL_linestr);
 #endif
@@ -3797,7 +3797,8 @@ S_intuit_method(pTHX_ char *start, GV *gv, CV *cv)
 						  S_newSV_maybe_utf8(aTHX_ tmpbuf, len));
 	    NEXTVAL_NEXTTOKE.opval->op_private = OPpCONST_BARE;
 	    if (PL_madskills)
-		curmad('X', newSVpvn(start,SvPVX(PL_linestr) + soff - start));
+		curmad('X', newSVpvn_flags(start,SvPVX(PL_linestr) + soff - start,
+                                                            ( UTF ? SVf_UTF8 : 0 )));
 	    PL_expect = XTERM;
 	    force_next(WORD);
 	    PL_bufptr = s;