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 /universal.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 'universal.c')
| -rw-r--r-- | universal.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/universal.c b/universal.c index 4506f77b6f..0c29d9312b 100644 --- a/universal.c +++ b/universal.c @@ -144,8 +144,7 @@ Perl_sv_derived_from(pTHX_ SV *sv, const char *name) HV *stash = Nullhv; HV *name_stash; - if (SvGMAGICAL(sv)) - mg_get(sv) ; + SvGETMAGIC(sv); if (SvROK(sv)) { sv = SvRV(sv); @@ -262,8 +261,7 @@ XS(XS_UNIVERSAL_isa) sv = ST(0); - if (SvGMAGICAL(sv)) - mg_get(sv); + SvGETMAGIC(sv); if (!SvOK(sv) || !(SvROK(sv) || (SvPOK(sv) && SvCUR(sv)) || (SvGMAGICAL(sv) && SvPOKp(sv) && SvCUR(sv)))) @@ -288,8 +286,7 @@ XS(XS_UNIVERSAL_can) sv = ST(0); - if (SvGMAGICAL(sv)) - mg_get(sv); + SvGETMAGIC(sv); if (!SvOK(sv) || !(SvROK(sv) || (SvPOK(sv) && SvCUR(sv)) || (SvGMAGICAL(sv) && SvPOKp(sv) && SvCUR(sv)))) |