summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-10-26 02:44:44 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-10-26 02:44:44 +0000
commitb86a2fa703d0daf651095b1947eb50e3b5cc41d9 (patch)
tree4813808e1f50c63dc88e862ce9415eea78c08ade /gv.c
parentce9935e078582f01b05cad6db77c0a8312bee15b (diff)
downloadperl-b86a2fa703d0daf651095b1947eb50e3b5cc41d9.tar.gz
various win32 tweaks; disable new xs_cpp section (it creates
ambiguous inference graph for %.xs --> %.o) p4raw-id: //depot/perl@2086
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index ad0d02d5d1..a3e8d88392 100644
--- a/gv.c
+++ b/gv.c
@@ -500,7 +500,9 @@ gv_fetchpv(char *nambeg, I32 add, I32 sv_type)
/* No stash in name, so see how we can default */
if (!stash) {
- if (isIDFIRST(*name) || (IN_UTF8 && ((*name & 0xc0) == 0xc0) && isIDFIRST_utf8(name))) {
+ if (isIDFIRST(*name)
+ || (IN_UTF8 && ((*name & 0xc0) == 0xc0) && isIDFIRST_utf8((U8*)name)))
+ {
bool global = FALSE;
if (isUPPER(*name)) {