]> git.vpit.fr Git - perl/modules/autovivification.git/commitdiff
If we fetch from the pointer table, the entry must exist (or segfault in a more expli...
authorVincent Pit <vince@profvince.com>
Wed, 17 Jun 2009 13:47:53 +0000 (15:47 +0200)
committerVincent Pit <vince@profvince.com>
Wed, 17 Jun 2009 13:47:53 +0000 (15:47 +0200)
autovivification.xs

index 4b05d289cf6513713f45ad97567fe8fea1a6c185..c2bb4080b9ffc861662406889162e63e2ca77529 100644 (file)
@@ -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);