diff options
| author | Larry Wall <larry@wall.org> | 1998-10-23 18:00:41 +0000 |
|---|---|---|
| committer | Larry Wall <larry@wall.org> | 1998-10-23 18:00:41 +0000 |
| commit | 834a4ddd8309fbf6aabbbc51bb6fcbe056e7963f (patch) | |
| tree | 10dce2532e7be7538af0c19f5a7d7f73c9220e55 /gv.c | |
| parent | 62b1ebc20082e645ed8e8a0cc6c1ebf91577cd34 (diff) | |
| download | perl-834a4ddd8309fbf6aabbbc51bb6fcbe056e7963f.tar.gz | |
Program with utf8 identifiers fails to compile
p4raw-id: //depot/perl@2038
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)) { |