diag_listed_as galore

In two instances, I actually modified to code to avoid %s for a
constant string, as it should be faster that way.

1 files changed, 5 insertions, 4 deletions

diff --git a/regexec.c b/regexec.c
index ced20bde35..44d7b96789 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4843,8 +4843,9 @@ NULL
 		&& !(PL_reg_flags & RF_warned))
 	    {
 		PL_reg_flags |= RF_warned;
-		Perl_warner(aTHX_ packWARN(WARN_REGEXP), "%s limit (%d) exceeded",
-		     "Complex regular subexpression recursion",
+		Perl_warner(aTHX_ packWARN(WARN_REGEXP),
+		     "Complex regular subexpression recursion limit (%d) "
+		     "exceeded",
 		     REG_INFTY - 1);
 	    }
 
@@ -4867,8 +4868,8 @@ NULL
 		{
 		    PL_reg_flags |= RF_warned;
 		    Perl_warner(aTHX_ packWARN(WARN_REGEXP),
-			"%s limit (%d) exceeded",
-			"Complex regular subexpression recursion",
+			"Complex regular subexpression recursion "
+			"limit (%d) exceeded",
 			REG_INFTY - 1);
 		}
 		cur_curlyx->u.curlyx.count--;