Change 25176 by [EMAIL PROTECTED] on 2005/07/19 01:05:18

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

Affected files ...

... //depot/perl/t/op/array.t#24 edit

Differences ...

==== //depot/perl/t/op/array.t#24 (xtext) ====
Index: perl/t/op/array.t
--- perl/t/op/array.t#23~24791~ Fri Jun 10 05:44:30 2005
+++ perl/t/op/array.t   Mon Jul 18 18:05:18 2005
@@ -308,8 +308,6 @@
 
     my $ref = [EMAIL PROTECTED];
 
-    local $TODO = '$#foo semantics with local @foo not fixed yet';
-
     my $inner;
     {
        local @array;
@@ -330,7 +328,7 @@
     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);
End of Patch.

Reply via email to