summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2017-09-24 16:48:48 -0700
committerFather Chrysostomos <sprout@cpan.org>2017-10-08 13:06:06 -0700
commita35c901808a982f357645ef262e94f60300ddd23 (patch)
tree812315179ad8c55c0513a7209009e0376b8f1ba2 /pp_hot.c
parent6881372e19f63014452bb62329f9954deb042b2e (diff)
downloadperl-a35c901808a982f357645ef262e94f60300ddd23.tar.gz
Make pp_multideref handle local $::{subref}
Based on a patch by Nicholas R.
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index f356d09353..ea918474fc 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2997,7 +2997,7 @@ PP(pp_multideref)
}
else {
if (localizing) {
- if (HvNAME_get(hv) && isGV(sv))
+ if (HvNAME_get(hv) && isGV_or_RVCV(sv))
save_gp(MUTABLE_GV(sv),
!(PL_op->op_flags & OPf_SPECIAL));
else if (preeminent) {