summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-09-25 22:13:33 -0700
committerFather Chrysostomos <sprout@cpan.org>2014-10-10 21:57:13 -0700
commit1199b01a19ac3b55dfe962f42e76278451b91b13 (patch)
treed2e599d4cc6d16d9adc0657c5293086aa71c80f7
parent838b9de431ce5a45386778b7c1a764bd71ccd69a (diff)
downloadperl-1199b01a19ac3b55dfe962f42e76278451b91b13.tar.gz
pp.c: Dodge compiler warning
-rw-r--r--pp.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index a4c801ebad..da6a72cfa5 100644
--- a/pp.c
+++ b/pp.c
@@ -6208,7 +6208,7 @@ PP(pp_lvref)
SV * const arg = PL_op->op_flags & OPf_STACKED ? POPs : NULL;
sv_magic(ret, arg,
PERL_MAGIC_lvref, (char *)elem, elem ? HEf_SVKEY : ARGTARG);
- if (PL_op->op_private & OPpLVAL_INTRO)
+ if (PL_op->op_private & OPpLVAL_INTRO) {
if (PL_op->op_flags & OPf_STACKED) {
save_pushptrptr((GV *)arg, SvREFCNT_inc_simple(GvSV(arg)),
SAVEt_GVSV);
@@ -6216,6 +6216,7 @@ PP(pp_lvref)
}
else
SAVECLEARSV(PAD_SVl(ARGTARG));
+ }
XPUSHs(ret);
RETURN;
}