Program with utf8 identifiers fails to compile

p4raw-id: //depot/perl@2038

1 files changed, 7 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index fa947cf573..89bbba7ebf 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2516,10 +2516,16 @@ PP(pp_method)
 	    !(iogv = gv_fetchpv(packname, FALSE, SVt_PVIO)) ||
 	    !(ob=(SV*)GvIO(iogv)))
 	{
-	    if (!packname || !isIDFIRST(*packname))
+	    if (!packname || 
+		((*(U8*)packname >= 0xc0 && IN_UTF8)
+		    ? !isIDFIRST_utf8(packname)
+		    : !isIDFIRST(*packname)
+		))
+	    {
 		DIE("Can't call method \"%s\" %s", name,
 		    SvOK(sv)? "without a package or object reference"
 			    : "on an undefined value");
+	    }
 	    stash = gv_stashpvn(packname, packlen, TRUE);
 	    goto fetch;
 	}