summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-11-22 13:34:37 -0800
committerFather Chrysostomos <sprout@cpan.org>2011-11-22 21:29:33 -0800
commite499bb364c2db5d5d50ebeb4678982e3fd5bb282 (patch)
treebbdfdff0033135df2f6735e38b9426ee2fc20459 /pp.c
parentf6525ddc4297d17c59a06ff1ffd820c8e0119adc (diff)
downloadperl-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.c4
1 files changed, 0 insertions, 4 deletions
diff --git a/pp.c b/pp.c
index 27d6a00b0f..a6e2f4e3ef 100644
--- a/pp.c
+++ b/pp.c
@@ -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);