Skip NULL values when walking a table

[perl/modules/Variable-Magic.git] / ptable.h

diff --git a/ptable.h b/ptable.h
index 055f0a5cd008d2471c620c8321996e023e118a7a..e6e2fd47f9ee2587e56bb5d4a4638aa045ef2723 100644 (file)
--- 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--);
  }
 }