From 3edfb5c3c50da87c76cb787628484b80e811c8e7 Mon Sep 17 00:00:00 2001 From: Tomasz Konojacki Date: Tue, 3 Mar 2020 00:45:03 +0100 Subject: pp_sort.c: call Perl_sortsv_flags directly That pointer isn't needed. --- pp_sort.c | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'pp_sort.c') diff --git a/pp_sort.c b/pp_sort.c index a65f28f182..339122d98e 100644 --- a/pp_sort.c +++ b/pp_sort.c @@ -611,8 +611,6 @@ PP(pp_sort) const U8 priv = PL_op->op_private; const U8 flags = PL_op->op_flags; U32 sort_flags = 0; - void (*sortsvp)(pTHX_ SV **array, size_t nmemb, SVCOMPARE_t cmp, U32 flags) - = Perl_sortsv_flags; I32 all_SIVs = 1; if ((priv & OPpSORT_DESCEND) != 0) @@ -812,7 +810,7 @@ PP(pp_sort) } start = p1 - max; - sortsvp(aTHX_ start, max, + Perl_sortsv_flags(aTHX_ start, max, (is_xsub ? S_sortcv_xsub : hasargs ? S_sortcv_stacked : S_sortcv), sort_flags); @@ -838,7 +836,7 @@ PP(pp_sort) else { MEXTEND(SP, 20); /* Can't afford stack realloc on signal. */ start = ORIGMARK+1; - sortsvp(aTHX_ start, max, + Perl_sortsv_flags(aTHX_ start, max, (priv & OPpSORT_NUMERIC) ? ( ( ( priv & OPpSORT_INTEGER) || all_SIVs) ? ( overloading ? S_amagic_i_ncmp : S_sv_i_ncmp) -- cgit v1.2.1