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

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