diff options
| -rw-r--r-- | src/expr.c | 8 |
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)); |