diff options
| author | Ian Goodacre <Ian.Goodacre@xtra.co.nz> | 2009-03-14 23:27:38 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-03-14 23:27:38 +0100 |
| commit | f50fa36f2a6ffc958fea8e2e5430b2a3d7a9bcf2 (patch) | |
| tree | c0b4fec670485a4125e26e12f75998fb56921bc6 /t | |
| parent | df3467db16fc4437950db94f0d3ad7ff8b2c9e46 (diff) | |
| download | perl-f50fa36f2a6ffc958fea8e2e5430b2a3d7a9bcf2.tar.gz | |
Better test case for [perl #63854] Error parsing "[~"
Diffstat (limited to 't')
| -rwxr-xr-x | 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 9892df5061..1b8045be71 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"; |