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

p4raw-id: //depot/perl@1587

diff --git a/regexec.c b/regexec.c
index 9e90699..47ece6a 100644 (file)
--- 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 (file)
--- 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 &");
            }
        }