]> git.vpit.fr Git - perl/modules/Variable-Magic.git/commitdiff
Enforce the API change for copy callbacks only in 5.11.x
authorVincent Pit <vince@profvince.com>
Sat, 5 Jul 2008 11:42:53 +0000 (13:42 +0200)
committerVincent Pit <vince@profvince.com>
Sat, 5 Jul 2008 11:42:53 +0000 (13:42 +0200)
Magic.xs

index 48bcc5774d7213c96940d1e5dff0e4ada8fadabe..be96e8c4f9177e6a277d84fdfff767219c356a03 100644 (file)
--- 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