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 /embed.h | |
| 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 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -423,6 +423,7 @@ #define magic_clearenv Perl_magic_clearenv #define magic_clear_all_env Perl_magic_clear_all_env #define magic_clearhint Perl_magic_clearhint +#define magic_clearhints Perl_magic_clearhints #define magic_clearisa Perl_magic_clearisa #define magic_clearpack Perl_magic_clearpack #define magic_clearsig Perl_magic_clearsig @@ -2759,6 +2760,7 @@ #define magic_clearenv(a,b) Perl_magic_clearenv(aTHX_ a,b) #define magic_clear_all_env(a,b) Perl_magic_clear_all_env(aTHX_ a,b) #define magic_clearhint(a,b) Perl_magic_clearhint(aTHX_ a,b) +#define magic_clearhints(a,b) Perl_magic_clearhints(aTHX_ a,b) #define magic_clearisa(a,b) Perl_magic_clearisa(aTHX_ a,b) #define magic_clearpack(a,b) Perl_magic_clearpack(aTHX_ a,b) #define magic_clearsig(a,b) Perl_magic_clearsig(aTHX_ a,b) |