From: Vincent Pit <vince@profvince.com>
Date: Sat, 20 Sep 2008 09:10:08 +0000 (+0200)
Subject: Turn READONLY on onto wizard objects
X-Git-Tag: v0.20~15
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=be95178696b5b4589e9ecb5b2f2c4e5edbe29474;p=perl%2Fmodules%2FVariable-Magic.git

Turn READONLY on onto wizard objects
---

diff --git a/Magic.xs b/Magic.xs
index 89df570..5e76f8a 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -834,6 +834,7 @@ CODE:
  sv = MGWIZ2SV(w);
  mg = sv_magicext(sv, NULL, PERL_MAGIC_ext, &vmg_wizard_vtbl, NULL, -1);
  mg->mg_private = SIG_WIZ;
+ SvREADONLY_on(sv);
 
  hv_store(MY_CXT.wizz, buf, sprintf(buf, "%u", sig), sv, 0);
  ++MY_CXT.count;