In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/f50fa36f2a6ffc958fea8e2e5430b2a3d7a9bcf2?hp=df3467db16fc4437950db94f0d3ad7ff8b2c9e46>
- Log ----------------------------------------------------------------- commit f50fa36f2a6ffc958fea8e2e5430b2a3d7a9bcf2 Author: Ian Goodacre <[email protected]> Date: Sat Mar 14 23:27:38 2009 +0100 Better test case for [perl #63854] Error parsing "[~" ----------------------------------------------------------------------- Summary of changes: t/base/lex.t | 7 ++----- 1 files changed, 2 insertions(+), 5 deletions(-) diff --git a/t/base/lex.t b/t/base/lex.t index 9892df5..1b8045b 100755 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -269,9 +269,6 @@ if ($@ =~ /Unrecognized character \\xE2 in column 5/) { print "ok $test\n"; } el $test++; # Is "[~" scanned correctly? -eval ' - my @a; - my $x = $a[~1] -'; -print "not " if($@); +...@a = (1,2,3); +print "not " unless($a[~~2] == 3); print "ok 57\n"; -- Perl5 Master Repository
