diff options
| author | David Mitchell <davem@iabyn.com> | 2010-03-02 20:39:28 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-03-02 20:39:28 +0000 |
| commit | ec34a119ad469e892fc0cee78efb6514a9168462 (patch) | |
| tree | 63c953ac6819340926b1deb08565d49dc61f0ac1 /utf8.c | |
| parent | fe442cc01a8e621ba5ee6f71c0b2797bcdf4639a (diff) | |
| download | perl-ec34a119ad469e892fc0cee78efb6514a9168462.tar.gz | |
[perl #73174] swash_init() wasn't saving %^H
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1842,8 +1842,7 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits PUSHSTACKi(PERLSI_MAGIC); ENTER; - SAVEI32(PL_hints); - PL_hints = 0; + SAVEHINTS(); save_re_context(); if (!gv_fetchmeth(stash, "SWASHNEW", 8, -1)) { /* demand load utf8 */ ENTER; |