summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-01-03 22:44:49 -0800
committerFather Chrysostomos <sprout@cpan.org>2012-01-03 22:44:49 -0800
commit407287f90891c4292ac8268e6566164f3992e28e (patch)
tree9b3942ea780fa36d2b462605d8fed73df9987d3e /mg.c
parent9f7d1e40385f2b6a774be929b592fac0dea1458e (diff)
downloadperl-407287f90891c4292ac8268e6566164f3992e28e.tar.gz
[perl #105912] local $_ should not FETCH
This commit finishes the work of 658a9f3 by skipping FETCH as well as STORE during local($_).
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/mg.c b/mg.c
index 31330dd903..5e11ec4e42 100644
--- a/mg.c
+++ b/mg.c
@@ -182,6 +182,8 @@ Perl_mg_get(pTHX_ SV *sv)
PERL_ARGS_ASSERT_MG_GET;
+ if (PL_localizing == 1 && sv == DEFSV) return 0;
+
save_magic(mgs_ix, sv);
/* We must call svt_get(sv, mg) for each valid entry in the linked