]> git.vpit.fr Git - perl/modules/Sub-Op.git/commitdiff
Rename the "check" member to "call"
authorVincent Pit <vince@profvince.com>
Fri, 23 Apr 2010 14:30:21 +0000 (16:30 +0200)
committerVincent Pit <vince@profvince.com>
Fri, 23 Apr 2010 14:30:21 +0000 (16:30 +0200)
Op.xs
sub_op.h
t/Sub-Op-LexicalSub/LexicalSub.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);
   }
  }
 
index 45ece3f999666aa510275bd54cd57aac785c1f80..c66580eeb7aa7bd52c348d2f2adaec3938bcbc93 100644 (file)
--- 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;
index 9e4a2a79143fef770be5af779cd6af791f4f07e1..4a2725e94e065ae73d8aa9930b10cdfe74608537 100644 (file)
@@ -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);
   }