Explicitly specify some printf formats for constant strings.

This is mostly to silence gcc's warning, "format not a string
literal and no format arguments".

p4raw-id: //depot/perl@34694

1 files changed, 1 insertions, 1 deletions

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