summaryrefslogtreecommitdiff
path: root/inline.h
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-09-11 17:37:23 -0600
committerKarl Williamson <khw@cpan.org>2019-09-15 10:39:56 -0600
commit1bd041dce8bb8fa2727af6630fb35f00c0c05a65 (patch)
tree06eb4cb931fd4c1e62168920e999149488065def /inline.h
parent74804ad189340f2812955e3c4308a6a82c0cc0eb (diff)
downloadperl-1bd041dce8bb8fa2727af6630fb35f00c0c05a65.tar.gz
Add Perl_ to SvAMAGIC _off,_on names
These function names need a Perl_ prefix to avoid namespace pollution.
Diffstat (limited to 'inline.h')
-rw-r--r--inline.h8
1 files changed, 6 insertions, 2 deletions
diff --git a/inline.h b/inline.h
index 5bae44e2bd..a63feedb95 100644
--- a/inline.h
+++ b/inline.h
@@ -239,14 +239,18 @@ Perl_SvREFCNT_dec_NN(pTHX_ SV *sv)
}
PERL_STATIC_INLINE void
-SvAMAGIC_on(SV *sv)
+Perl_SvAMAGIC_on(SV *sv)
{
+ PERL_ARGS_ASSERT_SVAMAGIC_ON;
assert(SvROK(sv));
+
if (SvOBJECT(SvRV(sv))) HvAMAGIC_on(SvSTASH(SvRV(sv)));
}
PERL_STATIC_INLINE void
-SvAMAGIC_off(SV *sv)
+Perl_SvAMAGIC_off(SV *sv)
{
+ PERL_ARGS_ASSERT_SVAMAGIC_OFF;
+
if (SvROK(sv) && SvOBJECT(SvRV(sv)))
HvAMAGIC_off(SvSTASH(SvRV(sv)));
}