diff options
Diffstat (limited to 'src/if_perl.xs')
-rw-r--r-- | src/if_perl.xs | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/if_perl.xs b/src/if_perl.xs index 9a99fc08fc..bf269cbcb0 100644 --- a/src/if_perl.xs +++ b/src/if_perl.xs @@ -658,6 +658,11 @@ S_SvREFCNT_dec(pTHX_ SV *sv) } # endif +/* perl-5.32 needs Perl_SvREFCNT_dec */ +# if (PERL_REVISION == 5) && (PERL_VERSION >= 32) +# define Perl_SvREFCNT_dec S_SvREFCNT_dec +# endif + /* perl-5.26 also needs S_TOPMARK and S_POPMARK. */ # if (PERL_REVISION == 5) && (PERL_VERSION >= 26) PERL_STATIC_INLINE I32 @@ -682,6 +687,20 @@ S_POPMARK(pTHX) } # endif +/* perl-5.32 needs Perl_POPMARK */ +# if (PERL_REVISION == 5) && (PERL_VERSION >= 32) +# define Perl_POPMARK S_POPMARK + +/* perl-5.32 needs Perl_SvTRUE */ +PERL_STATIC_INLINE bool +Perl_SvTRUE(pTHX_ SV *sv) { + if (!LIKELY(sv)) + return FALSE; + SvGETMAGIC(sv); + return SvTRUE_nomg_NN(sv); +} +# endif + /* * Make all runtime-links of perl. * |