-#ifndef REH_HAS_PERL
-# define REH_HAS_PERL(R, V, S) (PERL_REVISION > (R) || (PERL_REVISION == (R) && (PERL_VERSION > (V) || (PERL_VERSION == (V) && (PERL_SUBVERSION >= (S))))))
-#endif
+#include "xsh/caps.h" /* XSH_HAS_PERL() */
EXTERN_C void reh_save_re_context(pTHX);
EXTERN_C regnode *reh_regnext(pTHX_ register regnode *);
-#if REH_HAS_PERL(5, 11, 0)
+#if XSH_HAS_PERL(5, 11, 0)
EXTERN_C REGEXP *reh_pregcomp(pTHX_ SV * const, const U32);
#else
EXTERN_C REGEXP *reh_pregcomp(pTHX_ const SV * const, const U32);
#endif
-#if REH_HAS_PERL(5, 11, 2)
+#if XSH_HAS_PERL(5, 11, 2)
EXTERN_C REGEXP *reh_reg_temp_copy(pTHX_ REGEXP *, REGEXP *);
#else
EXTERN_C REGEXP *reh_reg_temp_copy(pTHX_ REGEXP *);
#endif
-#if REH_HAS_PERL(5, 15, 7)
+#if XSH_HAS_PERL(5, 15, 7)
EXTERN_C SV *reh__invlist_contents(pTHX_ SV* const);
#endif