From: Dave Mitchell <davem@fdisolutions.com>
Date: Tue, 19 Jul 2005 01:05:18 +0000 (+0000)
Subject: the "local @foo with $#foo" tests are no longer TODO
X-Git-Tag: perl-5.9.3~1398
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/2fc04a10ca47a4a5713a39beb29dd8beb9d0f653

the "local @foo with $#foo" tests are no longer TODO

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

diff --git a/t/op/array.t b/t/op/array.t
index 698d4dc..6461a43 100755
--- 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);