X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=4e62500715cb6773dc93d95741278332e6e3f31d;hb=40d1b68c7d0fb47f788579639d0712dd801339f6;hp=48bcc5774d7213c96940d1e5dff0e4ada8fadabe;hpb=b97c2f9839c9ac31650db1fe80fa07caf7ed88a9;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/Magic.xs b/Magic.xs
index 48bcc57..4e62500 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -72,7 +72,7 @@
 #endif
 
 /* uvar magic and Hash::Util::FieldHash were commited with p28419 */
-#if (VMG_PERL_PATCHLEVEL >= 28419) || (!VMG_PERL_PATCHLEVEL && PERL_VERSION_GE(5, 9, 4))
+#if VMG_HAS_PERL_AND(28419, 5, 9, 4)
 # define VMG_UVAR 1
 #else
 # define VMG_UVAR 0
@@ -512,7 +512,7 @@ STATIC int vmg_svt_free(pTHX_ SV *sv, MAGIC *mg) {
 
 #if MGf_COPY
 STATIC int vmg_svt_copy(pTHX_ SV *sv, MAGIC *mg, SV *nsv, const char *key,
-# if (VMG_PERL_PATCHLEVEL >= 33256) || (!VMG_PERL_PATCHLEVEL && PERL_API_VERSION_GE(5, 11, 0))
+# if VMG_HAS_PERL_AND(33256, 5, 11, 0)
   I32 keylen
 # else
   int keylen