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 /sv.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 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -8901,8 +8901,6 @@ Perl_sv_2cv(pTHX_ SV *sv, HV **const st, GV **const gvp, const I32 lref) if (SvROK(sv)) { if (SvAMAGIC(sv)) sv = amagic_deref_call(sv, to_cv_amg); - /* At this point I'd like to do SPAGAIN, but really I need to - force it upon my callers. Hmmm. This is a mess... */ sv = SvRV(sv); if (SvTYPE(sv) == SVt_PVCV) { |