From: Vincent Pit <vince@profvince.com>
Date: Fri, 23 Apr 2010 14:30:21 +0000 (+0200)
Subject: Rename the "check" member to "call"
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=efeaaece7f45dd3c188aca0094d050ea242d4bb6;p=perl%2Fmodules%2FSub-Op.git

Rename the "check" member to "call"
---

diff --git a/Op.xs b/Op.xs
index 285c1e9..91f07cc 100644
--- 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);
   }
  }
 
diff --git a/sub_op.h b/sub_op.h
index 45ece3f..c66580e 100644
--- a/sub_op.h
+++ b/sub_op.h
@@ -11,7 +11,7 @@ typedef struct {
  STRLEN         namelen;
  const char    *proto;
  STRLEN         protolen;
- sub_op_check_t check;
+ sub_op_check_t call;
  sub_op_check_t ref;
  void          *ud;
 } sub_op_config_t;
diff --git a/t/Sub-Op-LexicalSub/LexicalSub.xs b/t/Sub-Op-LexicalSub/LexicalSub.xs
index 9e4a2a7..4a2725e 100644
--- a/t/Sub-Op-LexicalSub/LexicalSub.xs
+++ b/t/Sub-Op-LexicalSub/LexicalSub.xs
@@ -26,7 +26,7 @@ STATIC PADOFFSET sols_find_sv_in_curpad(pTHX_ SV *sv) {
  return NOT_IN_PAD;
 }
 
-STATIC OP *sols_check(pTHX_ OP *o, void *ud_) {
+STATIC OP *sols_call(pTHX_ OP *o, void *ud_) {
  OP *gvop, *last_arg, *rv2cv;
  SV *cv = ud_;
  GV *gv;
@@ -77,7 +77,7 @@ PPCODE:
    if (SvPOK(cb)) { /* Sub is prototyped */
     c.proto = SvPV_const(cb, c.protolen);
    }
-   c.check  = sols_check;
+   c.call   = sols_call;
    c.ud     = SvREFCNT_inc(cb);
    sub_op_register(aTHX_ &c, 0);
   }