patch 8.2.1031: build failure with Perl5.32
Problem: Build failure with Perl5.32.
Solution: Define a few more functions. (Felix Yan, closes #6310)
diff --git a/src/if_perl.xs b/src/if_perl.xs
index 9a99fc0..bf269cb 100644
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -658,6 +658,11 @@
}
# 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 @@
}
# 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.
*