diff options
| author | Rick Delaney <rick@consumercontact.com> | 2005-08-22 09:00:33 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-23 13:25:15 +0000 |
| commit | 5b295bef27e91243a93cdb460dcf005e5bf35426 (patch) | |
| tree | bcca3ea1266736c0c5f577d2acecb84aaf39b68a /pp_hot.c | |
| parent | b76aa5af2840585626e18c84f60feb97c68abd14 (diff) | |
| download | perl-5b295bef27e91243a93cdb460dcf005e5bf35426.tar.gz | |
Use SvGETMAGIC more often
Message-ID: <20050822170033.GH7674@localhost.localdomain>
p4raw-id: //depot/perl@25322
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 12 |
1 files changed, 4 insertions, 8 deletions
@@ -169,8 +169,7 @@ PP(pp_concat) } else { /* TARG == left */ STRLEN llen; - if (SvGMAGICAL(left)) - mg_get(left); /* or mg_get(left) may happen here */ + SvGETMAGIC(left); /* or mg_get(left) may happen here */ if (!SvOK(TARG)) sv_setpvn(left, "", 0); (void)SvPV_nomg_const(left, llen); /* Needed to set UTF8 flag */ @@ -350,8 +349,7 @@ PP(pp_dor) RETURN; break; default: - if (SvGMAGICAL(sv)) - mg_get(sv); + SvGETMAGIC(sv); if (SvOK(sv)) RETURN; } @@ -2914,8 +2912,7 @@ PP(pp_aelem) void Perl_vivify_ref(pTHX_ SV *sv, U32 to_what) { - if (SvGMAGICAL(sv)) - mg_get(sv); + SvGETMAGIC(sv); if (!SvOK(sv)) { if (SvREADONLY(sv)) Perl_croak(aTHX_ PL_no_modify); @@ -2985,8 +2982,7 @@ S_method_common(pTHX_ SV* meth, U32* hashp) if (!sv) Perl_croak(aTHX_ "Can't call method \"%s\" on an undefined value", name); - if (SvGMAGICAL(sv)) - mg_get(sv); + SvGETMAGIC(sv); if (SvROK(sv)) ob = (SV*)SvRV(sv); else { |