This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
104abab
)
the "local @foo with $#foo" tests are no longer TODO
author
Dave Mitchell
<davem@fdisolutions.com>
Tue, 19 Jul 2005 01:05:18 +0000
(
01:05
+0000)
committer
Dave Mitchell
<davem@fdisolutions.com>
Tue, 19 Jul 2005 01:05:18 +0000
(
01:05
+0000)
p4raw-id: //depot/perl@25176
t/op/array.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/array.t
b/t/op/array.t
index
698d4dc
..
6461a43
100755
(executable)
--- a/
t/op/array.t
+++ b/
t/op/array.t
@@
-308,8
+308,6
@@
sub test_arylen {
my $ref = \@array;
- local $TODO = '$#foo semantics with local @foo not fixed yet';
-
my $inner;
{
local @array;
@@
-330,7
+328,7
@@
sub test_arylen {
is (scalar @array, 7);
is ($$outer, 6);
- is ($$inner,
0, "This is emergent behaviour
");
+ is ($$inner,
undef, "orphaned $#foo is always undef
");
is (scalar @array, 7);
is ($$outer, 6);