Add Perl_croak_no_modify() to implement Perl_croak("%s", PL_no_modify).

This reduces object code size, reducing CPU cache pressure on the non-exception
paths.

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_sort.c b/pp_sort.c
index 48d4273e23..ed9c809117 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1568,7 +1568,7 @@ PP(pp_sort)
 	}
 	else {
 	    if (SvREADONLY(av))
-		Perl_croak(aTHX_ "%s", PL_no_modify);
+		Perl_croak_no_modify(aTHX);
 	    else
 		SvREADONLY_on(av);
 	    p1 = p2 = AvARRAY(av);