diff options
| author | Andy Lester <andy@petdance.com> | 2006-02-24 08:54:35 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-02-27 11:06:30 +0000 |
| commit | b37c2d43c8bccbefe3985273e9661833102148d0 (patch) | |
| tree | b996c0398e5f83c4ed03e0b1144f10819ba27a27 /pp_sort.c | |
| parent | ee94f8101362ee382e42ec2d404d79b0ab7d17ef (diff) | |
| download | perl-b37c2d43c8bccbefe3985273e9661833102148d0.tar.gz | |
Speedups and shrinkages of SvREFCNT_inc
Message-ID: <20060224205434.GA17867@petdance.com>
p4raw-id: //depot/perl@27334
Diffstat (limited to 'pp_sort.c')
| -rw-r--r-- | pp_sort.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1655,10 +1655,10 @@ PP(pp_sort) if (hasargs) { /* This is mostly copied from pp_entersub */ - AV *av = (AV*)PAD_SVl(0); + AV * const av = (AV*)PAD_SVl(0); cx->blk_sub.savearray = GvAV(PL_defgv); - GvAV(PL_defgv) = (AV*)SvREFCNT_inc(av); + GvAV(PL_defgv) = (AV*)SvREFCNT_inc_simple(av); CX_CURPAD_SAVE(cx->blk_sub); cx->blk_sub.argarray = av; } |