]> git.vpit.fr Git - perl/modules/Variable-Magic.git/commitdiff
Don't redefine VMG_COMPAT_ARRAY_PUSH_NOLEN
authorVincent Pit <vince@profvince.com>
Wed, 17 Dec 2008 22:21:21 +0000 (23:21 +0100)
committerVincent Pit <vince@profvince.com>
Wed, 17 Dec 2008 22:21:21 +0000 (23:21 +0100)
Magic.xs

index 49ba4719ee5efea79f8a8613fb30a23b86b06a08..1b63117385baadf79db86a09695025d9616a717f 100644 (file)
--- a/Magic.xs
+++ b/Magic.xs
@@ -121,10 +121,12 @@ STATIC SV *vmg_clone(pTHX_ SV *sv, tTHX owner) {
 #endif
 
 /* Applied to dev-5.9 as 25854, integrated to maint-5.8 as 28160 */
-#if !defined(VMG_COMPAT_ARRAY_PUSH_NOLEN) && (VMG_HAS_PERL_MAINT(5, 8, 9, 28160) || VMG_HAS_PERL_MAINT(5, 9, 3, 25854) || VMG_HAS_PERL(5, 10, 0))
-# define VMG_COMPAT_ARRAY_PUSH_NOLEN 1
-#else
-# define VMG_COMPAT_ARRAY_PUSH_NOLEN 0
+#ifndef VMG_COMPAT_ARRAY_PUSH_NOLEN
+# if VMG_HAS_PERL_MAINT(5, 8, 9, 28160) || VMG_HAS_PERL_MAINT(5, 9, 3, 25854) || VMG_HAS_PERL(5, 10, 0)
+#  define VMG_COMPAT_ARRAY_PUSH_NOLEN 1
+# else
+#  define VMG_COMPAT_ARRAY_PUSH_NOLEN 0
+# endif
 #endif
 
 /* Applied to dev-5.11 as 34908 */