projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ebb8ae2
)
Make all JAPH tests pass
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Thu, 19 Oct 2006 08:56:14 +0000
(08:56 +0000)
committer
Rafael 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
patch
|
blob
|
history
diff --git
a/t/japh/abigail.t
b/t/japh/abigail.t
index
9981502
..
cdd7e41
100644
(file)
--- 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};