This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 5
[perl5.git] / t / foo
1 #!./perl -Dst
2
3 $ref = [[],2,[3,4,5,]];
4 print ${$$ref[2]}[2] == 5 ? "ok 16\n" : "not ok 16\n";