X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=ptable.h;h=e6e2fd47f9ee2587e56bb5d4a4638aa045ef2723;hb=76d754dafff8d105c23ed0cac71c68a625ff6df0;hp=055f0a5cd008d2471c620c8321996e023e118a7a;hpb=3726dd28139789d99ab213bf25d9a2b0509cb756;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/ptable.h b/ptable.h
index 055f0a5..e6e2fd4 100644
--- a/ptable.h
+++ b/ptable.h
@@ -206,7 +206,8 @@ STATIC void ptable_walk(pTHX_ ptable * const t, void (*cb)(pTHX_ ptable_ent *ent
   do {
    ptable_ent *entry;
    for (entry = array[i]; entry; entry = entry->next)
-    cb(aTHX_ entry, userdata);
+    if (entry->val)
+     cb(aTHX_ entry, userdata);
   } while (i--);
  }
 }