This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make local @tied, %tied, untied
authorDavid Mitchell <davem@iabyn.com>
Tue, 4 May 2010 12:22:13 +0000 (13:22 +0100)
committerDavid Mitchell <davem@iabyn.com>
Tue, 4 May 2010 13:45:54 +0000 (14:45 +0100)
commit5afa72af5aa99c40932771ad390abf5ba229611b
tree51755a9bb47818b503103d7fdfad3ee9c23cac8a
parentc919e87379678094951ae4130a71bdc1938ccde1
make local @tied, %tied, untied

Fix for RT #7938, #7939: when localising an array or hash, don't make the
new aggregate tied.

The old behaviour of { local @tied; ... } was equivalent to:

    {
my $saved = \@tied;
*tied = [];
tied(@tied) = tied(@$saved)  # if tied() were an lvalue function
...
*tied = $saved;
    }

This patch simply removes the 'tied(@tied) = ...' step
mg.c
t/op/local.t