X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=regcomp.c;h=f0b7c5cd1846520006b65cfd9a248b62c06491b7;hb=b632dc6dbe208afe33c967ec5c975f6576450925;hp=0217657ae39f4d28cf928b7635e72d3bb81f55b2;hpb=5aa4340e488ca15127d8181ea8476af4d9a9a491;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/regcomp.c b/regcomp.c
index 0217657..f0b7c5c 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -210,10 +210,10 @@ static scan_data_t zero_scan_data = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  * of t/op/regmesg.t, the tests in t/op/re_tests, and those in
  * op/pragma/warn/regcomp.
  */
-#define MARKER1 "=HERE="      /* marker as it appears in the description */
-#define MARKER2 " ===HERE=== "  /* marker as it appears within the regex */
+#define MARKER1 "HERE"      /* marker as it appears in the description */
+#define MARKER2 " << HERE "  /* marker as it appears within the regex */
    
-#define REPORT_LOCATION " at " MARKER1 " mark in regex m/%.*s" MARKER2 "%s/"
+#define REPORT_LOCATION " before " MARKER1 " mark in regex m/%.*s" MARKER2 "%s/"
 
 /*
  * Calls SAVEDESTRUCTOR_X if needed, then calls Perl_croak with the given