X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=t%2FSub-Op-Test%2FTest.xs;h=4a7b97028bc17c844a2ee28157bc75c40f7018df;hp=b3179698622f1592fcfe6c1ba5562ceca965bdc6;hb=6a7b5fad65453cfc8742554cef515b1d7c84443a;hpb=fa4378c8262b5f0d476bb0af2d52551dc3fe0cc0 diff --git a/t/Sub-Op-Test/Test.xs b/t/Sub-Op-Test/Test.xs index b317969..4a7b970 100644 --- a/t/Sub-Op-Test/Test.xs +++ b/t/Sub-Op-Test/Test.xs @@ -70,16 +70,16 @@ void _init(SV *name, SV *cb) PROTOTYPE: $$ PREINIT: - sub_op_keyword k; + sub_op_config_t c; PPCODE: if (SvROK(cb)) { cb = SvRV(cb); if (SvTYPE(cb) >= SVt_PVCV) { - k.name = SvPV_const(name, k.len); - k.check = sub_op_test_check; - k.ud = SvREFCNT_inc(cb); - k.pp = sub_op_test_pp; - sub_op_register(aTHX_ &k); + c.name = SvPV_const(name, c.len); + c.check = sub_op_test_check; + c.ud = SvREFCNT_inc(cb); + c.pp = sub_op_test_pp; + sub_op_register(aTHX_ &c); } } XSRETURN(0);