From: Vincent Pit <vince@profvince.com>
Date: Thu, 12 Feb 2009 20:26:02 +0000 (+0100)
Subject: Reorder a bit the wizard duplication logic to silence a cast warning
X-Git-Tag: v0.31~15
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=7093e2e5da555110174261aa42ac7bbf78fa238b;p=perl%2Fmodules%2FVariable-Magic.git

Reorder a bit the wizard duplication logic to silence a cast warning
---

diff --git a/Magic.xs b/Magic.xs
index a922c2f..985b37f 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -1086,8 +1086,11 @@ CODE:
    STRLEN len;
    char *sig = HePV(key, len);
    SV *sv;
+   const MGWIZ *w;
    MAGIC *mg;
-   sv = MGWIZ2SV(vmg_wizard_clone(SV2MGWIZ(HeVAL(key))));
+   w  = SV2MGWIZ(HeVAL(key));
+   w  = vmg_wizard_clone(w);
+   sv = MGWIZ2SV(w);
    mg = sv_magicext(sv, NULL, PERL_MAGIC_ext, &vmg_wizard_vtbl, NULL, 0);
    mg->mg_private = SIG_WIZ;
    SvREADONLY_on(sv);