Re-order one DO_UTF8 to be after the SvPV.

[perl5.git] / pp_sort.c

diff --git a/pp_sort.c b/pp_sort.c
index aa1fe80..ab383c1 100644 (file)
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1523,7 +1523,7 @@ PP(pp_sort)
                    SV *tmpstr = sv_newmortal();
                    gv_efullname3(tmpstr, gv, NULL);
                    DIE(aTHX_ "Undefined sort subroutine \"%"SVf"\" called",
-                       tmpstr);
+                       (void*)tmpstr);
                }
                else {
                    DIE(aTHX_ "Undefined subroutine in sort");