X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/044d25c73ce10d2b29008b875209d414303ccff7..655ef49cbd458cdd6276db24cea1ca372a2e1360:/pp_sort.c?ds=sidebyside diff --git a/pp_sort.c b/pp_sort.c index d17f5b7..94c6a02 100644 --- a/pp_sort.c +++ b/pp_sort.c @@ -347,6 +347,7 @@ S_sortsv_flags_impl(pTHX_ gptr *base, size_t nmemb, SVCOMPARE_t cmp, U32 flags) gptr *which[3]; off_runs stack[60], *stackp; + PERL_UNUSED_ARG(flags); PERL_ARGS_ASSERT_SORTSV_FLAGS_IMPL; if (nmemb <= 1) return; /* sorted trivially */ @@ -540,7 +541,7 @@ S_sortsv_flags_impl(pTHX_ gptr *base, size_t nmemb, SVCOMPARE_t cmp, U32 flags) } /* -=head1 SV Manipulation Functions +=for apidoc_section SV Handling =for apidoc sortsv_flags @@ -668,7 +669,6 @@ sortsv_cmp_locale_desc(pTHX_ gptr *base, size_t nmemb, U32 flags) #endif /* -=head1 Array Manipulation Functions =for apidoc sortsv