1 files changed, 3 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index 2af41a87c4..37a1bd9510 100644
--- a/gv.c
+++ b/gv.c
@@ -1939,11 +1939,13 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
 	    }
 	    goto magicalize;
 	case '[':		/* $[ */
-	    if (sv_type == SVt_PV || sv_type == SVt_PVGV) {
+	    if ((sv_type == SVt_PV || sv_type == SVt_PVGV)
+	     && FEATURE_IS_ENABLED_d("$[")) {
 		if (addmg) (void)hv_store(stash,name,len,(SV *)gv,0);
 		require_tie_mod(gv,name,newSVpvs("arybase"),"FETCH",0);
 		addmg = 0;
 	    }
+	    else goto magicalize;
             break;
 	case '\023':	/* $^S */
 	ro_magicalize: