From: Vincent Pit <vince@profvince.com>
Date: Sat, 5 Jul 2008 11:42:00 +0000 (+0200)
Subject: Replace old version tests by VMG_HAS_PERL_OR
X-Git-Tag: v0.19~8
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=b97c2f9839c9ac31650db1fe80fa07caf7ed88a9;p=perl%2Fmodules%2FVariable-Magic.git

Replace old version tests by VMG_HAS_PERL_OR
---

diff --git a/Magic.xs b/Magic.xs
index a141792..48bcc57 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -78,20 +78,20 @@
 # define VMG_UVAR 0
 #endif
 
-#if !defined(VMG_COMPAT_ARRAY_PUSH_NOLEN) && ((VMG_PERL_PATCHLEVEL >= 25854) || (!VMG_PERL_PATCHLEVEL && PERL_VERSION_GE(5, 9, 3)))
+#if !defined(VMG_COMPAT_ARRAY_PUSH_NOLEN) && VMG_HAS_PERL_OR(25854, 5, 9, 3)
 # define VMG_COMPAT_ARRAY_PUSH_NOLEN 1
 #else
 # define VMG_COMPAT_ARRAY_PUSH_NOLEN 0
 #endif
 
 /* since 5.9.5 - see #43357 */
-#if (VMG_PERL_PATCHLEVEL >= 31473) || (!VMG_PERL_PATCHLEVEL && PERL_VERSION_GE(5, 9, 5))
+#if VMG_HAS_PERL_OR(31473, 5, 9, 5)
 # define VMG_COMPAT_ARRAY_UNDEF_CLEAR 1
 #else
 # define VMG_COMPAT_ARRAY_UNDEF_CLEAR 0
 #endif
 
-#if (VMG_PERL_PATCHLEVEL >= 32969) || (!VMG_PERL_PATCHLEVEL && PERL_VERSION_GE(5, 11, 0))
+#if VMG_HAS_PERL_OR(32969, 5, 11, 0)
 # define VMG_COMPAT_SCALAR_LENGTH_NOLEN 1
 #else
 # define VMG_COMPAT_SCALAR_LENGTH_NOLEN 0