From 834a4ddd8309fbf6aabbbc51bb6fcbe056e7963f Mon Sep 17 00:00:00 2001
From: Larry Wall <larry@wall.org>
Date: Fri, 23 Oct 1998 18:00:41 +0000
Subject: Program with utf8 identifiers fails to compile

p4raw-id: //depot/perl@2038
---
 gv.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'gv.c')

diff --git a/gv.c b/gv.c
index 57e3ff1f8f..e040a4139b 100644
--- a/gv.c
+++ b/gv.c
@@ -500,7 +500,7 @@ gv_fetchpv(char *nambeg, I32 add, I32 sv_type)
     /* No stash in name, so see how we can default */
 
     if (!stash) {
-	if (isIDFIRST(*name)) {
+	if (isIDFIRST(*name) || (IN_UTF8 && ((*name & 0xc0) == 0xc0) && isIDFIRST_utf8(name))) {
 	    bool global = FALSE;
 
 	    if (isUPPER(*name)) {
-- 
cgit v1.2.1