From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 21 Jul 1998 01:21:41 +0000 (+0000)
Subject: workaround C<"foo" "bar"> catenation-intolerant compilers
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f3ca5943bd369554ca9d604462d643d62934add;p=p5sagit%2Fp5-mst-13.2.git

workaround C<"foo" "bar"> catenation-intolerant compilers

p4raw-id: //depot/perl@1587
---

diff --git a/regexec.c b/regexec.c
index 9e90699..47ece6a 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1188,8 +1188,9 @@ regmatch(regnode *prog)
 			if (PL_dowarn && n >= REG_INFTY 
 			    && !(PL_reg_flags & RF_warned)) {
 			    PL_reg_flags |= RF_warned;
-			    warn("Complex regular subexpression recursion "
-				 "limit (%d) exceeded", REG_INFTY - 1);
+			    warn("%s limit (%d) exceeded",
+				 "Complex regular subexpression recursion",
+				 REG_INFTY - 1);
 			}
 			sayNO;
 		    }
diff --git a/toke.c b/toke.c
index 75f2b8a..0a78760 100644
--- a/toke.c
+++ b/toke.c
@@ -2857,8 +2857,8 @@ yylex(void)
 		gv = Nullgv;
 		gvp = 0;
 		if (PL_dowarn && hgv)
-		    warn("Ambiguous call resolved as CORE::%s(), "
-			 "qualify as such or use &", GvENAME(hgv));
+		    warn("Ambiguous call resolved as CORE::%s(), %s"
+			 GvENAME(hgv), "qualify as such or use &");
 	    }
 	}