pp_hot.c: method_common is UTF-8 aware.

Not really useful yet, since named methods aren't correctly
flagged; that is to access a \x{30cb} method, you'd need
to do something like Obj->${\"\x{30cb}"}.

Committer’s note: I’m also including one piece of the ‘gv.c and
pp_ctl.c warnings’ patch so that the newly-added tests in this
commit pass.

1 files changed, 4 insertions, 2 deletions

diff --git a/gv.c b/gv.c
index 30ffa0a85f..52846fa150 100644
--- a/gv.c
+++ b/gv.c
@@ -1046,8 +1046,10 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
 			return gv;
 		}
 		Perl_croak(aTHX_
-			   "Can't locate object method \"%s\" via package \"%.*s\"",
-			   name, (int)HvNAMELEN_get(stash), HvNAME_get(stash));
+			   "Can't locate object method \"%"SVf"\" via package \"%"SVf"\"",
+			            SVfARG(newSVpvn_flags(name, nend - name,
+                                           SVs_TEMP | is_utf8)),
+                                    SVfARG(sv_2mortal(newSVhek(HvNAME_HEK(stash)))));
 	    }
 	    else {
 		STRLEN packlen;