This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make all JAPH tests pass
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 19 Oct 2006 08:56:14 +0000 (08:56 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 19 Oct 2006 08:56:14 +0000 (08:56 +0000)
p4raw-id: //depot/perl@29047

t/japh/abigail.t

index 9981502..cdd7e41 100644 (file)
@@ -656,6 +656,7 @@ eval {die ["Just another Perl Hacker\n"]}; print ${${@}}[$#{@{${@}}}]
 ####### die 5
 eval {die [[qq [Just another Perl Hacker]]]};; print
 ${${${@}}[$#{@{${@}}}]}[$#{${@{${@}}}[$#{@{${@}}}]}]
+SKIP: Abuses a fixed bug; what is in $#{...} must be an arrayref, not an array
 
 ####### Closure returning itself.
 $_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};