From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 19 Oct 2006 08:56:14 +0000 (+0000)
Subject: Make all JAPH tests pass
X-Git-Tag: accepted/trunk/20130322.191538~16832
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4d5114b49dd32c765f1137162d67b9cab5c5ba5a;p=platform%2Fupstream%2Fperl.git

Make all JAPH tests pass

p4raw-id: //depot/perl@29047
---

diff --git a/t/japh/abigail.t b/t/japh/abigail.t
index 9981502..cdd7e41 100644
--- a/t/japh/abigail.t
+++ b/t/japh/abigail.t
@@ -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};