rename duplicate warning in regexec.c

p4raw-id: //depot/maint-5.005/perl@1695

1 files changed, 3 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index 13675cc9e3..f8c5e7e997 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1246,7 +1246,9 @@ regmatch(regnode *prog)
 		}
 		if (PL_dowarn && n >= REG_INFTY && !(PL_reg_flags & RF_warned)) {
 		    PL_reg_flags |= RF_warned;
-		    warn("count exceeded %d", REG_INFTY - 1);
+		    warn("%s limit (%d) exceeded",
+			 "Complex regular subexpression recursion",
+			 REG_INFTY - 1);
 		}
 
 		/* Failed deeper matches of scan, so see if this one works. */