diff options
-rw-r--r-- | XSUB.h | 1 | ||||
-rw-r--r-- | perl.h | 12 | ||||
-rw-r--r-- | sv.c | 4 |
3 files changed, 1 insertions, 16 deletions
@@ -391,7 +391,6 @@ Rethrows a previously caught exception. See L<perlguts/"Exception Handling">. # define VTBL_uvar &PL_vtbl_uvar # define VTBL_defelem &PL_vtbl_defelem # define VTBL_regexp &PL_vtbl_regexp -# define VTBL_regdata_names &PL_vtbl_regdata_names # define VTBL_regdata &PL_vtbl_regdata # define VTBL_regdatum &PL_vtbl_regdatum # ifdef USE_LOCALE_COLLATE @@ -4832,18 +4832,6 @@ MGVTBL_SET( ); MGVTBL_SET( - PL_vtbl_regdata_names, - NULL, - NULL, - NULL, - NULL, - NULL, - NULL, - NULL, - NULL -); - -MGVTBL_SET( PL_vtbl_regdata, NULL, NULL, @@ -4532,9 +4532,6 @@ Perl_sv_magic(pTHX_ register SV *sv, SV *obj, int how, const char *name, I32 nam case PERL_MAGIC_regdata: vtable = &PL_vtbl_regdata; break; - case PERL_MAGIC_regdata_names: - vtable = &PL_vtbl_regdata_names; - break; case PERL_MAGIC_regdatum: vtable = &PL_vtbl_regdatum; break; @@ -4597,6 +4594,7 @@ Perl_sv_magic(pTHX_ register SV *sv, SV *obj, int how, const char *name, I32 nam case PERL_MAGIC_vec: vtable = &PL_vtbl_vec; break; + case PERL_MAGIC_regdata_names: case PERL_MAGIC_arylen_p: case PERL_MAGIC_rhash: case PERL_MAGIC_symtab: |