Rename sub_op_keyword to sub_op_config_t

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

diff --git a/t/Sub-Op-Test/Test.xs b/t/Sub-Op-Test/Test.xs
index b3179698622f1592fcfe6c1ba5562ceca965bdc6..4a7b97028bc17c844a2ee28157bc75c40f7018df 100644 (file)
--- 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);