From b1fc363696b1a308e6bce75eb292bacc8f2c9833 Mon Sep 17 00:00:00 2001 From: Claes Jakobsson Date: Thu, 14 May 2009 16:10:06 +0200 Subject: Amelioration of the error message "Unrecognized character %s in column %d" Changes the error message to "Unrecognized character %s; marked by <-- HERE after %s<-- HERE near column %d". This should make it a little simpler to spot and correct the suspicious character. --- t/base/lex.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 't/base') diff --git a/t/base/lex.t b/t/base/lex.t index 1b8045be71..8cadf8505e 100755 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -265,7 +265,7 @@ sub foo::::::bar { print "ok $test\n"; $test++ } foo::::::bar; eval "\$x =\xE2foo"; -if ($@ =~ /Unrecognized character \\xE2 in column 5/) { print "ok $test\n"; } else { print "not ok $test\n"; } +if ($@ =~ /Unrecognized character \\xE2; marked by <-- HERE after \$x =<-- HERE near column 5/) { print "ok $test\n"; } else { print "not ok $test\n"; } $test++; # Is "[~" scanned correctly? -- cgit v1.2.1