From 31e9c0d8ae1a948e181043fe77f9d846bfe48599 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Sun, 8 Oct 2006 19:39:00 +0000 Subject: [PATCH] Revert change 28962 (at least until a better solution is found) p4raw-id: //depot/perl@28966 --- XSUB.h | 1 + perl.h | 12 ++++++++++++ sv.c | 4 +++- 3 files changed, 16 insertions(+), 1 deletion(-) diff --git a/XSUB.h b/XSUB.h index de5d33b..e4cc816 100644 --- a/XSUB.h +++ b/XSUB.h @@ -391,6 +391,7 @@ Rethrows a previously caught exception. See L. # 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 diff --git a/perl.h b/perl.h index 4fb64ed..3338ea2 100644 --- a/perl.h +++ b/perl.h @@ -4832,6 +4832,18 @@ MGVTBL_SET( ); MGVTBL_SET( + PL_vtbl_regdata_names, + NULL, + NULL, + NULL, + NULL, + NULL, + NULL, + NULL, + NULL +); + +MGVTBL_SET( PL_vtbl_regdata, NULL, NULL, diff --git a/sv.c b/sv.c index 5fe95c2..4fa4498 100644 --- a/sv.c +++ b/sv.c @@ -4532,6 +4532,9 @@ 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; @@ -4594,7 +4597,6 @@ 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: -- 2.7.4