Copy call checker when cloning closure prototype

[perl5.git] / mg_raw.h

diff --git a/mg_raw.h b/mg_raw.h
index f4e1742..2a919b9 100644 (file)
--- a/mg_raw.h
+++ b/mg_raw.h
@@ -84,7 +84,7 @@
       "/* substr 'x' substr() lvalue */" },
     { 'y', "want_vtbl_defelem | PERL_MAGIC_VALUE_MAGIC",
       "/* defelem 'y' Shadow \"foreach\" iterator variable / smart parameter vivification */" },
-    { ']', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
+    { ']', "want_vtbl_checkcall | PERL_MAGIC_VALUE_MAGIC",
       "/* checkcall ']' inlining/mutation of call to this CV */" },
     { '~', "magic_vtable_max",
       "/* ext '~' Available for use by extensions */" },