diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-02-15 02:37:40 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-15 07:31:17 +0000 |
| commit | 3b0d546b549c81b8fd7281af083002e289e306d6 (patch) | |
| tree | 597230b346122f870ae653674c97196b6156302a /pp.c | |
| parent | 72ac79b36fc2613b9b03b8424fe60fdaa5759b16 (diff) | |
| download | perl-3b0d546b549c81b8fd7281af083002e289e306d6.tar.gz | |
Re: [perl #20912] UTF8 related glitch + fix
Message-ID: <20030214223740.GA13575@ratsnest.hole>
p4raw-id: //depot/perl@18708
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -4427,6 +4427,7 @@ PP(pp_split) } /* temporarily switch stacks */ SWITCHSTACK(PL_curstack, ary); + PL_curstackinfo->si_stack = ary; make_mortal = 0; } } @@ -4624,6 +4625,7 @@ PP(pp_split) if (realarray) { if (!mg) { SWITCHSTACK(ary, oldstack); + PL_curstackinfo->si_stack = oldstack; if (SvSMAGICAL(ary)) { PUTBACK; mg_set((SV*)ary); |