From: Vincent Pit <vince@profvince.com>
Date: Sat, 5 Jul 2008 11:42:53 +0000 (+0200)
Subject: Enforce the API change for copy callbacks only in 5.11.x
X-Git-Tag: v0.19~7
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;ds=sidebyside;h=75af4794a9ba6d7a13fdaab05a5938390affa940;p=perl%2Fmodules%2FVariable-Magic.git

Enforce the API change for copy callbacks only in 5.11.x
---

diff --git a/Magic.xs b/Magic.xs
index 48bcc57..be96e8c 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -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