X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/126f53f392147cb95f8643714b33fe373747680a..ea726b52599b52cf534201a46ec3455418c9eb8e:/pp_sort.c

diff --git a/pp_sort.c b/pp_sort.c
index 777bd7a..d06a953 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1813,7 +1813,7 @@ S_sortcv_xsub(pTHX_ SV *const a, SV *const b)
     dVAR; dSP;
     const I32 oldsaveix = PL_savestack_ix;
     const I32 oldscopeix = PL_scopestack_ix;
-    CV * const cv=(CV*)PL_sortcop;
+    CV * const cv=MUTABLE_CV(PL_sortcop);
     I32 result;
 
     PERL_ARGS_ASSERT_SORTCV_XSUB;