From: Vincent Pit <vince@profvince.com>
Date: Wed, 17 Jun 2009 13:47:53 +0000 (+0200)
Subject: If we fetch from the pointer table, the entry must exist (or segfault in a more expli... 
X-Git-Tag: v0.02~4
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fautovivification.git;a=commitdiff_plain;h=4157d0412d5b52aaa70de077cb79cc26e7ff0c7e

If we fetch from the pointer table, the entry must exist (or segfault in a more explicit way)
---

diff --git a/autovivification.xs b/autovivification.xs
index 4b05d28..c2bb408 100644
--- a/autovivification.xs
+++ b/autovivification.xs
@@ -176,11 +176,7 @@ STATIC const a_op_info *a_map_fetch(const OP *o, a_op_info *oi) {
 #endif
 
  val = ptable_fetch(a_op_map, o);
- if (val) {
-  *oi = *val;
-  val = oi;
- } else
-  oi->old_pp = 0;
+ *oi = *val;
 
 #ifdef USE_ITHREADS
  MUTEX_UNLOCK(&a_op_map_mutex);