diff options
| author | Zefram <zefram@fysh.org> | 2009-08-21 01:49:14 +0200 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2009-08-21 13:33:59 +0200 |
| commit | f747ebd621ca5f8cd5605b35b81db4ac486f68f9 (patch) | |
| tree | e412ad370ee591c40096e9d87a3aa30ac7b6b269 /sv.c | |
| parent | a8ae8fee103e29c80450bb74b87866088a24b4a1 (diff) | |
| download | perl-f747ebd621ca5f8cd5605b35b81db4ac486f68f9.tar.gz | |
Add clear magic to %^H so that the HE chain is reset when you empty it.
This fixes [perl #68590] : %^H not lexical enough.
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -5096,8 +5096,6 @@ Perl_sv_magic(pTHX_ register SV *const sv, SV *const obj, const int how, case PERL_MAGIC_qr: vtable = &PL_vtbl_regexp; break; - case PERL_MAGIC_hints: - /* As this vtable is all NULL, we can reuse it. */ case PERL_MAGIC_sig: vtable = &PL_vtbl_sig; break; @@ -5140,6 +5138,9 @@ Perl_sv_magic(pTHX_ register SV *const sv, SV *const obj, const int how, case PERL_MAGIC_hintselem: vtable = &PL_vtbl_hintselem; break; + case PERL_MAGIC_hints: + vtable = &PL_vtbl_hints; + break; case PERL_MAGIC_ext: /* Reserved for use by extensions not perl internals. */ /* Useful for attaching extension internal data to perl vars. */ |