From: Vincent Pit <vince@profvince.com>
Date: Sat, 20 Sep 2008 21:11:12 +0000 (+0200)
Subject: Use 0 (store as-is) as the len when casting magic on the wizard
X-Git-Tag: v0.20~10
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=2b17c3d6ed76489160907e04347b661919f8fe2c;p=perl%2Fmodules%2FVariable-Magic.git

Use 0 (store as-is) as the len when casting magic on the wizard
---

diff --git a/Magic.xs b/Magic.xs
index 30577d4..f4ec292 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -852,7 +852,7 @@ CODE:
 #endif /* VMG_UVAR */
 
  sv = MGWIZ2SV(w);
- mg = sv_magicext(sv, NULL, PERL_MAGIC_ext, &vmg_wizard_vtbl, NULL, -1);
+ mg = sv_magicext(sv, NULL, PERL_MAGIC_ext, &vmg_wizard_vtbl, NULL, 0);
  mg->mg_private = SIG_WIZ;
  SvREADONLY_on(sv);