diff options
author | Karl Williamson <khw@cpan.org> | 2019-09-11 17:37:23 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-09-15 10:39:56 -0600 |
commit | 1bd041dce8bb8fa2727af6630fb35f00c0c05a65 (patch) | |
tree | 06eb4cb931fd4c1e62168920e999149488065def /inline.h | |
parent | 74804ad189340f2812955e3c4308a6a82c0cc0eb (diff) | |
download | perl-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.h | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -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))); } |