diff options
-rw-r--r-- | src/if_perl.xs | 19 | ||||
-rw-r--r-- | src/version.c | 2 |
2 files changed, 21 insertions, 0 deletions
diff --git a/src/if_perl.xs b/src/if_perl.xs index 9a99fc08f..bf269cbcb 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. * diff --git a/src/version.c b/src/version.c index aff20e13c..bfcd95d6c 100644 --- a/src/version.c +++ b/src/version.c @@ -755,6 +755,8 @@ static char *(features[]) = static int included_patches[] = { /* Add new patch number below this line */ /**/ + 1031, +/**/ 1030, /**/ 1029, |