The Big Boilerplate Factorization

[perl/modules/re-engine-Hooks.git] / re_defs.h

diff --git a/re_defs.h b/re_defs.h
index 6e749d3f97735a7d03af64a8fdcaa80be1003327..1df3739f4371ec1748d587a2f407ec0b2648ab83 100644 (file)
--- a/re_defs.h
+++ b/re_defs.h
@@ -1,20 +1,18 @@
-#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