X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=t%2FSub-Op-LexicalSub%2FLexicalSub.xs;fp=t%2FSub-Op-LexicalSub%2FLexicalSub.xs;h=4a2725e94e065ae73d8aa9930b10cdfe74608537;hp=9e4a2a79143fef770be5af779cd6af791f4f07e1;hb=efeaaece7f45dd3c188aca0094d050ea242d4bb6;hpb=0eb003f3bbeeada878cab10f7dabc020c775b666

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);
   }