From b37c2d43c8bccbefe3985273e9661833102148d0 Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Fri, 24 Feb 2006 08:54:35 -0600 Subject: Speedups and shrinkages of SvREFCNT_inc Message-ID: <20060224205434.GA17867@petdance.com> p4raw-id: //depot/perl@27334 --- pp_sort.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pp_sort.c') diff --git a/pp_sort.c b/pp_sort.c index 104e8ed90d..7585b75940 100644 --- a/pp_sort.c +++ b/pp_sort.c @@ -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; } -- cgit v1.2.1