From: Vincent Pit <vince@profvince.com>
Date: Fri, 4 Jul 2008 10:10:06 +0000 (+0200)
Subject: Enable uvar magic when patchlevel >= 28419
X-Git-Tag: v0.18~3
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=c01835268b81dbfdc578a5d6c0e782c376a30923;p=perl%2Fmodules%2FVariable-Magic.git

Enable uvar magic when patchlevel >= 28419
---

diff --git a/Magic.xs b/Magic.xs
index 61f8f1f..85d7c85 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -67,7 +67,8 @@
 # define MGf_LOCAL 0
 #endif
 
-#if PERL_API_VERSION_GE(5, 10, 0)
+/* uvar magic and Hash::Util::FieldHash were commited with p28419 */
+#if (VMG_PERL_PATCHLEVEL >= 28419) || (!VMG_PERL_PATCHLEVEL && PERL_VERSION_GE(5, 9, 4))
 # define VMG_UVAR 1
 #else
 # define VMG_UVAR 0