diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-09-25 22:13:33 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-10-10 21:57:13 -0700 |
commit | 1199b01a19ac3b55dfe962f42e76278451b91b13 (patch) | |
tree | d2e599d4cc6d16d9adc0657c5293086aa71c80f7 | |
parent | 838b9de431ce5a45386778b7c1a764bd71ccd69a (diff) | |
download | perl-1199b01a19ac3b55dfe962f42e76278451b91b13.tar.gz |
pp.c: Dodge compiler warning
-rw-r--r-- | pp.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; } |