diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-11-22 13:34:37 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-22 21:29:33 -0800 |
commit | e499bb364c2db5d5d50ebeb4678982e3fd5bb282 (patch) | |
tree | bbdfdff0033135df2f6735e38b9426ee2fc20459 /pp.c | |
parent | f6525ddc4297d17c59a06ff1ffd820c8e0119adc (diff) | |
download | perl-e499bb364c2db5d5d50ebeb4678982e3fd5bb282.tar.gz |
amagic_deref_call does not necessitate SPAGAIN
As amagic_deref_call pushes a new stack, PL_stack_sp will always have
the same value before and after, so SPAGAIN is unnecessary.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -147,8 +147,6 @@ static const char S_no_symref_sv[] = When noinit is true, the absence of a gv will cause a retval of undef. This is unrelated to the cv-to-gv assignment case. - - Make sure to use SPAGAIN after calling this. */ static SV * @@ -253,7 +251,6 @@ PP(pp_rv2gv) ((PL_op->op_flags & OPf_SPECIAL) && !(PL_op->op_flags & OPf_MOD)) || PL_op->op_type == OP_READLINE ); - SPAGAIN; if (PL_op->op_private & OPpLVAL_INTRO) save_gp(MUTABLE_GV(sv), !(PL_op->op_flags & OPf_SPECIAL)); SETs(sv); @@ -315,7 +312,6 @@ PP(pp_rv2sv) if (SvROK(sv)) { if (SvAMAGIC(sv)) { sv = amagic_deref_call(sv, to_sv_amg); - SPAGAIN; } sv = SvRV(sv); |