Rename the "check" member to "call"

[perl/modules/Sub-Op.git] / Op.xs

diff --git a/Op.xs b/Op.xs
index 285c1e9768ae593cc7f2c51b7697ad88fad20f77..91f07cc2aeec34ed2a457e38e506e9b813fc442f 100644 (file)
--- a/Op.xs
+++ b/Op.xs
@@ -99,7 +99,7 @@ void sub_op_init(sub_op_config_t *c) {
  c->namelen  = 0;
  c->proto    = NULL;
  c->protolen = 0;
- c->check    = 0;
+ c->call     = 0;
  c->ref      = 0;
  c->ud       = NULL;
 
@@ -139,9 +139,9 @@ sub_op_config_t *sub_op_dup(pTHX_ const sub_op_config_t *orig) {
  }
  dupe->protolen = len;
 
- dupe->check = orig->check;
- dupe->ref   = orig->ref;
- dupe->ud    = orig->ud;
+ dupe->call = orig->call;
+ dupe->ref  = orig->ref;
+ dupe->ud   = orig->ud;
 
  return dupe;
 }
@@ -288,8 +288,8 @@ STATIC OP *so_ck_entersub(pTHX_ OP *o) {
     GvCV(gv) = NULL;
    }
 
-   if (c->check)
-    o = CALL_FPTR(c->check)(aTHX_ o, c->ud);
+   if (c->call)
+    o = CALL_FPTR(c->call)(aTHX_ o, c->ud);
   }
  }