Rename the "check" member to "call"

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

diff --git a/t/Sub-Op-LexicalSub/LexicalSub.xs b/t/Sub-Op-LexicalSub/LexicalSub.xs
index 9e4a2a79143fef770be5af779cd6af791f4f07e1..4a2725e94e065ae73d8aa9930b10cdfe74608537 100644 (file)
--- 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);
   }