When restoring localised values, call set only on container magic.

Avoids (among other things), localised pos index being trashed at
scope exit.

p4raw-id: //depot/perl@30627

1 files changed, 4 insertions, 7 deletions

diff --git a/t/op/pos.t b/t/op/pos.t
index 0c0de06ce7..c3abfbe387 100755
--- a/t/op/pos.t
+++ b/t/op/pos.t
@@ -24,10 +24,7 @@ is(f(pos($x)), 4);
 $x = "test string?"; $x =~ s/\w/pos($x)/eg;
 is($x, "0123 5678910?");
 
-TODO: {
-    $x = "123 56"; $x =~ / /g;
-    is(pos($x), 4);
-    { local $x }
-    local $TODO = "RT #1716: search position reset after 'local' save/restore";
-    is(pos($x), 4);
-}
+$x = "123 56"; $x =~ / /g;
+is(pos($x), 4);
+{ local $x }
+is(pos($x), 4);