diff options
author | David Mitchell <davem@iabyn.com> | 2010-06-07 22:11:42 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2010-06-07 22:11:42 +0100 |
commit | 89adf4e8e0de17fedf78328b32920f47635850d0 (patch) | |
tree | 75df7a6d325273d824b15fd015c8f187f81bd3be /mg.c | |
parent | e1137bc782e702f287ec7909f121d66bfb4707ba (diff) | |
download | perl-89adf4e8e0de17fedf78328b32920f47635850d0.tar.gz |
Revert "make 'local $tied' untied"
This reverts commit 191ad7eff570fc96c93993e4358f83e2033365d6.
Some modules (e.g. File::chdir) relied on the current behaviour of
local $tied_scalar, so lets leave things as-is for now. See
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2010-05/msg00627.html
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -179,7 +179,6 @@ S_is_container_magic(const MAGIC *mg) case PERL_MAGIC_rhash: case PERL_MAGIC_symtab: case PERL_MAGIC_tied: /* treat as value, so 'local @tied' isn't tied */ - case PERL_MAGIC_tiedscalar: /* so 'local $scalar' isn't tied */ return 0; default: return 1; |