X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.c;h=b8fef0d8b03dcdc3cb8ec3c2c792b63feab51440;hb=b66a344cd7dee153c0b0d0563e56c746d574dd5c;hp=5a91c08fab09c032b972be3f4189fc65b53f7813;hpb=16070b82c8557c1a47b3ee4bee2b551efb7b3eb7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/gv.c b/gv.c
index 5a91c08..b8fef0d 100644
--- a/gv.c
+++ b/gv.c
@@ -581,9 +581,7 @@ Perl_gv_fetchpv(pTHX_ const 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((U8*)name)))
-	{
+	if (isIDFIRST_lazy(name)) {
 	    bool global = FALSE;
 
 	    if (isUPPER(*name)) {
@@ -839,6 +837,7 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
     case '\017':	/* $^O */
     case '\020':	/* $^P */
     case '\024':	/* $^T */
+    case '\025':	/* $^U */
 	if (len > 1)
 	    break;
 	goto magicalize;