X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2FSub-Op-LexicalSub%2FLexicalSub.xs;h=a9b1344bba9b998a7f4033d52f30d7060dfede8f;hb=b9c3a456f75424383f35cb83000965d76e56d4ed;hp=a4d2d8e6cc2ccbc19b56f70005434b4893cacabc;hpb=e87c30401d00a01f0b92de32fc9a71b25ad8b57f;p=perl%2Fmodules%2FSub-Op.git

diff --git a/t/Sub-Op-LexicalSub/LexicalSub.xs b/t/Sub-Op-LexicalSub/LexicalSub.xs
index a4d2d8e..a9b1344 100644
--- a/t/Sub-Op-LexicalSub/LexicalSub.xs
+++ b/t/Sub-Op-LexicalSub/LexicalSub.xs
@@ -62,11 +62,12 @@ PPCODE:
  if (SvROK(cb)) {
   cb = SvRV(cb);
   if (SvTYPE(cb) >= SVt_PVCV) {
+   sub_op_init(&c);
    c.name  = SvPV_const(name, c.namelen);
    c.check = sols_check;
    c.ud    = SvREFCNT_inc(cb);
    c.pp    = sols_pp;
-   sub_op_register(aTHX_ &c);
+   sub_op_register(aTHX_ &c, 0);
   }
  }
  XSRETURN(0);