This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/local.t: Unknown RT#, but appears to be fixed. Blame says not edited since 2005.
authorDan Collins <dcollinsn@gmail.com>
Sun, 3 Jul 2016 21:06:41 +0000 (17:06 -0400)
committerYves Orton <demerphq@gmail.com>
Fri, 21 Oct 2016 07:09:43 +0000 (09:09 +0200)
t/op/local.t

index fa22126..67c2ca1 100644 (file)
@@ -469,8 +469,7 @@ is($h{'c'}, 3);
 # local() should preserve the existenceness of tied hash elements
 ok(! exists $h{'y'});
 ok(! exists $h{'z'});
-TODO: {
-    todo_skip("Localize entire tied hash");
+{
     my $d = join("\n", map { "$_=>$h{$_}" } sort keys %h);
     local %h = %h;
     is(join("\n", map { "$_=>$h{$_}" } sort keys %h), $d);