diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-11-03 16:54:05 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-11-03 16:54:05 +0000 |
commit | 8897dcaad14089c32e969309beb16112ec768eaf (patch) | |
tree | 7610d6a83c89377e877de24b35643cecaa1035c9 /pp.c | |
parent | 25a9ffce153b0e67cfefd260754edeb097da5be7 (diff) | |
download | perl-8897dcaad14089c32e969309beb16112ec768eaf.tar.gz |
Inline tryAMAGICunDEREF_var() into its callers and eliminate it.
Nothing outside the core was using this macro.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -142,7 +142,8 @@ PP(pp_rv2gv) if (!isGV(sv) || SvFAKE(sv)) SvGETMAGIC(sv); if (SvROK(sv)) { wasref: - tryAMAGICunDEREF(to_gv); + sv = amagic_deref_call(sv, to_gv_amg); + SPAGAIN; sv = SvRV(sv); if (SvTYPE(sv) == SVt_PVIO) { @@ -283,7 +284,8 @@ PP(pp_rv2sv) if (!(PL_op->op_private & OPpDEREFed)) SvGETMAGIC(sv); if (SvROK(sv)) { - tryAMAGICunDEREF(to_sv); + sv = amagic_deref_call(sv, to_sv_amg); + SPAGAIN; sv = SvRV(sv); switch (SvTYPE(sv)) { |