diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-06-24 20:44:07 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-06-24 20:44:07 +0100 |
commit | 133acf7b389614db651d1ed570d4a0ca0c747999 (patch) | |
tree | bc91d9b208195abeb8a27f7c56d10994d30d3ab9 /pp_sort.c | |
parent | c941595168829d86ac7d2e0fa00a891d42f5d96e (diff) | |
download | perl-133acf7b389614db651d1ed570d4a0ca0c747999.tar.gz |
In pp_sort, ensure that @_ is freed correctly.
Before this, if @_ had become AvREAL(), it retains reference on its elements.
Diffstat (limited to 'pp_sort.c')
-rw-r--r-- | pp_sort.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1678,9 +1678,9 @@ PP(pp_sort) sort_flags); if (!(flags & OPf_SPECIAL)) { - LEAVESUB(cv); - if (!is_xsub) - CvDEPTH(cv)--; + SV *sv; + POPSUB(cx, sv); + LEAVESUB(sv); } POPBLOCK(cx,PL_curpm); PL_stack_sp = newsp; |