diff options
| author | Claes Jakobsson <claes@surfar.nu> | 2009-05-14 16:10:06 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-14 16:10:06 +0200 |
| commit | b1fc363696b1a308e6bce75eb292bacc8f2c9833 (patch) | |
| tree | 1ac527627cc35c571b8d9719dab59e97907e1332 /t/base | |
| parent | 7fecd077a7bc92add80772966a8c824277223d09 (diff) | |
| download | perl-b1fc363696b1a308e6bce75eb292bacc8f2c9833.tar.gz | |
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.
Diffstat (limited to 't/base')
| -rwxr-xr-x | t/base/lex.t | 2 |
1 files changed, 1 insertions, 1 deletions
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? |