From: Ian Goodacre <Ian.Goodacre@xtra.co.nz>
Date: Sat, 14 Mar 2009 22:27:38 +0000 (+0100)
Subject: Better test case for [perl #63854] Error parsing "[~"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f50fa36f2a6ffc958fea8e2e5430b2a3d7a9bcf2;p=p5sagit%2Fp5-mst-13.2.git

Better test case for [perl #63854] Error parsing "[~"
---

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";