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

diff --git a/ptable.h b/ptable.h
index 055f0a5..5e9e8ed 100644
--- a/ptable.h
+++ b/ptable.h
@@ -29,7 +29,7 @@
 # define aPTBLMS  aTHX
 # define aPTBLMS_ aTHX_
 #else
-# define pPTBLMS
+# define pPTBLMS  void
 # define pPTBLMS_
 # define aPTBLMS
 # define aPTBLMS_
@@ -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--);
  }
 }