Author: pgollucci
Date: Mon Dec 4 23:43:06 2006
New Revision: 482539
URL: http://svn.apache.org/viewvc?view=rev&rev=482539
Log:
Add wrapper macros to detect perl versions in the preprocessor.
Requested by: geoff
(todo: replace ocurrences in the code)
Modified:
perl/modperl/trunk/src/modules/perl/modperl_util.h
Modified: perl/modperl/trunk/src/modules/perl/modperl_util.h
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/src/modules/perl/modperl_util.h?view=diff&rev=482539&r1=482538&r2=482539
==============================================================================
--- perl/modperl/trunk/src/modules/perl/modperl_util.h (original)
+++ perl/modperl/trunk/src/modules/perl/modperl_util.h Mon Dec 4 23:43:06 2006
@@ -149,4 +149,17 @@
SV *modperl_pnotes(pTHX_ HV **pnotes, SV *key, SV *val,
request_rec *r, conn_rec *c);
+/* some wrapper macros to detect perl versions
+ * and prevent code clutter */
+#define MP_PERL_VERSION_AT_LEAST(r, v, s) \
+ (PERL_REVISION == r && \
+ ((PERL_VERSION == v && PERL_SUBVERSION >= s) || PERL_VERSION > v))
+
+#define MP_PERL_VERSION_AT_MOST(r, v, s) \
+ (PERL_REVISION == r && \
+ (PERL_VERSION == v-1 || (PERL_VERSION == v && PERL_SUBVERSION =< s)))
+
+#define MP_PERL_VERSION(r, v, s) \
+ (PERL_REVISION == r && PERL_VERSION == v && PERL_SUBVERSION == s)
+
#endif /* MODPERL_UTIL_H */
