X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=blobdiff_plain;f=Magic.xs;h=24f8d5c97da6aa091ef6a5386c159a676b1ce803;hp=997b45d233a1e675f16a51577fb502d1684aba29;hb=f80e249f673c39ee8ba0dd58b26a3d5384448b61;hpb=39d298473b7bb1073edb5d64515c7c7e7be7c7fb

diff --git a/Magic.xs b/Magic.xs
index 997b45d..24f8d5c 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -1464,9 +1464,11 @@ PROTOTYPES: ENABLE
 BOOT:
 {
  HV *stash;
+ int c;
 
  MY_CXT_INIT;
- MY_CXT.b__op_stashes[0] = NULL;
+ for (c = OPc_NULL; c < OPc_MAX; ++c)
+  MY_CXT.b__op_stashes[c] = NULL;
 #if VMG_THREADSAFE
  MUTEX_INIT(&vmg_vtable_refcount_mutex);
  MUTEX_INIT(&vmg_op_name_init_mutex);