(docolon): Give a warning when the first character

of the basic regular expression is `^'.

1 files changed, 8 insertions, 0 deletions

diff --git a/src/expr.c b/src/expr.c
index 567633b58..bf5d1e442 100644
--- a/src/expr.c
+++ b/src/expr.c
@@ -421,6 +421,14 @@ docolon (VALUE *sv, VALUE *pv)
   tostring (sv);
   tostring (pv);
 
+  if (pv->u.s[0] == '^')
+    {
+      error (0, 0, _("\
+warning: unportable BRE: `%s': using `^' as the first character \n\
+of the basic regular expression is not portable; it is being ignored"),
+	     pv->u.s);
+    }
+
   len = strlen (pv->u.s);
   memset (&re_buffer, 0, sizeof (re_buffer));
   memset (&re_regs, 0, sizeof (re_regs));