X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/bd6e6c126bf78b3ecdc6512201fd30a2c288fe7f..40bf447173f7b8e9ca7be4996fea63edad03ba00:/mg_vtable.h

diff --git a/mg_vtable.h b/mg_vtable.h
index f6d9104..3c73c2b 100644
--- a/mg_vtable.h
+++ b/mg_vtable.h
@@ -27,7 +27,6 @@
 #define PERL_MAGIC_env            'E' /* %ENV hash */
 #define PERL_MAGIC_envelem        'e' /* %ENV hash element */
 #define PERL_MAGIC_fm             'f' /* Formline ('compiled' format) */
-#define PERL_MAGIC_study          'G' /* study()ed string */
 #define PERL_MAGIC_regex_global   'g' /* m//g target */
 #define PERL_MAGIC_hints          'H' /* %^H hash */
 #define PERL_MAGIC_hintselem      'h' /* %^H hash element */
@@ -148,7 +147,7 @@ EXTCONST char *PL_magic_vtable_names[magic_vtable_max];
 #ifdef DOINIT
 EXT_MGVTBL PL_magic_vtables[magic_vtable_max] = {
   { (int (*)(pTHX_ SV *, MAGIC *))Perl_magic_getarylen, Perl_magic_setarylen, 0, 0, 0, 0, 0, 0 },
-  { 0, 0, 0, 0, Perl_magic_freearylen_p, 0, 0, 0 },
+  { 0, 0, 0, Perl_magic_cleararylen_p, Perl_magic_freearylen_p, 0, 0, 0 },
   { 0, 0, 0, 0, Perl_magic_killbackrefs, 0, 0, 0 },
   { 0, 0, 0, 0, 0, Perl_magic_copycallchecker, 0, 0 },
 #ifdef USE_LOCALE_COLLATE