diff options
| author | Claes Jacobsson <claes@surfar.nu> | 2007-08-04 18:00:19 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-08-10 09:57:08 +0000 |
| commit | 356c7adf53ddf6b2b7f62f53bc2d999b974db873 (patch) | |
| tree | 8291f83de514bc9a616de16f146f77031db9ab0f /t | |
| parent | 1630c0b5f1128c49069f0f5e02a02f852c090e0b (diff) | |
| download | perl-356c7adf53ddf6b2b7f62f53bc2d999b974db873.tar.gz | |
Re: [PATCH] Adding more information to "Unrecognized character" error in toke.c
Message-Id: <57CEC660-0020-48DF-A72A-931BCADC2AEE@surfar.nu>
p4raw-id: //depot/perl@31699
Diffstat (limited to 't')
| -rwxr-xr-x | t/base/lex.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/base/lex.t b/t/base/lex.t index 464e68bb89..f45e56cdf7 100755 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -1,6 +1,6 @@ #!./perl -print "1..55\n"; +print "1..56\n"; $x = 'x'; @@ -263,3 +263,7 @@ print ((exists $str{xyz::bar} ? "" : "not ")."ok $test\n"); ++$test; 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"; } +$test++; |