X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.c;h=317cbb0a3376c3089727ecb400e930ee0b32ed53;hb=c0932edc6a72828d2f603e19fe4af61704b40486;hp=e254c8630514989b0c4e26841fb2fcb5697f73c4;hpb=6a8181172ab18fb057dd6fb202936705ede77746;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/gv.c b/gv.c
index e254c86..317cbb0 100644
--- a/gv.c
+++ b/gv.c
@@ -837,7 +837,6 @@ 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;
@@ -846,7 +845,8 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
 	    break;
 	goto ro_magicalize;
     case '\027':	/* $^W & $^WARNING_BITS */
-	if (len > 1 && strNE(name, "\027ARNING_BITS"))
+	if (len > 1 && strNE(name, "\027ARNING_BITS")
+	    && strNE(name, "\027IDE_SYSTEM_CALLS"))
 	    break;
 	goto magicalize;