This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_sort.c: silence the "unused parameter" warning
authorTomasz Konojacki <me@xenu.pl>
Thu, 12 Mar 2020 23:15:37 +0000 (00:15 +0100)
committerJames E Keenan <jkeenan@cpan.org>
Fri, 13 Mar 2020 02:06:24 +0000 (22:06 -0400)
The 'flags' argument has been unused since
044d25c73ce10d2b29008b875209d414303ccff7 but we can't remove it
because it's a public API.

Fixes #17632

pp_sort.c

index d17f5b7..a3a7352 100644 (file)
--- 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 */