diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-08 19:39:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-08 19:39:00 +0000 |
| commit | 31e9c0d8ae1a948e181043fe77f9d846bfe48599 (patch) | |
| tree | 927e51b3b922dc9cbf5aa6f32965adaaa879ca0c /sv.c | |
| parent | 7e4353e96785be675a69a6886d154405dbfdc124 (diff) | |
| download | perl-31e9c0d8ae1a948e181043fe77f9d846bfe48599.tar.gz | |
Revert change 28962 (at least until a better solution is found)
p4raw-id: //depot/perl@28966
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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: |