Remove extraneous dot from ‘Missing right brace...’

$ ./perl -Ilib -e '/\N{/'
Missing right brace on \N{} or unescaped left brace after \N. at -e line 1, within pattern
Execution of -e aborted due to compilation errors.

That dot before ‘at -e’ is confusing.

2 files changed, 7 insertions, 1 deletions

diff --git a/t/lib/croak/toke b/t/lib/croak/toke
index 8e4b0338a3..90204526a3 100644
--- a/t/lib/croak/toke
+++ b/t/lib/croak/toke
@@ -9,6 +9,12 @@ eval "s//<<foo/e"; die $@
 EXPECT
 Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
 ########
+# NAME /\N{/
+/\N{/
+EXPECT
+Missing right brace on \N{} or unescaped left brace after \N at - line 1, within pattern
+Execution of -e aborted due to compilation errors.
+########
 # NAME Missing name in "my sub"
 use feature 'lexical_subs'; my sub;
 EXPECT
diff --git a/toke.c b/toke.c
index efb6533ed8..180059e70b 100644
--- a/toke.c
+++ b/toke.c
@@ -3567,7 +3567,7 @@ S_scan_const(pTHX_ char *start)
 		    if (! PL_lex_inpat) {
 			yyerror("Missing right brace on \\N{}");
 		    } else {
-			yyerror("Missing right brace on \\N{} or unescaped left brace after \\N.");
+			yyerror("Missing right brace on \\N{} or unescaped left brace after \\N");
 		    }
 		    continue;
 		}