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-Test%2FTest.xs;h=e67d5baa33d02e4711484180ed6b13fbb4e0905a;hp=4a7b97028bc17c844a2ee28157bc75c40f7018df;hb=14a44e7b2f834cbd0d2ba8cc63deda55b3e5f0dd;hpb=a2cacd5001fc982edeb39a4262079c6661ceb2f4

diff --git a/t/Sub-Op-Test/Test.xs b/t/Sub-Op-LexicalSub/LexicalSub.xs
similarity index 68%
rename from t/Sub-Op-Test/Test.xs
rename to t/Sub-Op-LexicalSub/LexicalSub.xs
index 4a7b970..e67d5ba 100644
--- a/t/Sub-Op-Test/Test.xs
+++ b/t/Sub-Op-LexicalSub/LexicalSub.xs
@@ -6,23 +6,23 @@
 #include "perl.h"
 #include "XSUB.h"
 
-#define __PACKAGE__     "Sub::Op::Test"
+#define __PACKAGE__     "Sub::Op::LexicalSub"
 #define __PACKAGE_LEN__ (sizeof(__PACKAGE__)-1)
 
 #include "sub_op.h"
 
-STATIC HV *sub_op_test_map = NULL;
+STATIC HV *sols_map = NULL;
 
-STATIC OP *sub_op_test_check(pTHX_ OP *o, void *ud_) {
+STATIC OP *sols_check(pTHX_ OP *o, void *ud_) {
  char buf[sizeof(void*)*2+1];
  SV *cb = ud_;
 
- (void) hv_store(sub_op_test_map, buf, sprintf(buf, "%"UVxf, PTR2UV(o)), cb, 0);
+ (void) hv_store(sols_map, buf, sprintf(buf, "%"UVxf, PTR2UV(o)), cb, 0);
 
  return o;
 }
 
-STATIC OP *sub_op_test_pp(pTHX) {
+STATIC OP *sols_pp(pTHX) {
  dSP;
  dMARK;
  SV *cb;
@@ -31,7 +31,7 @@ STATIC OP *sub_op_test_pp(pTHX) {
  {
   char buf[sizeof(void*)*2+1];
   SV **svp;
-  svp = hv_fetch(sub_op_test_map, buf, sprintf(buf, "%"UVxf, PTR2UV(PL_op)), 0);
+  svp = hv_fetch(sols_map, buf, sprintf(buf, "%"UVxf, PTR2UV(PL_op)), 0);
   if (!svp)
    RETURN;
   cb = *svp;
@@ -57,13 +57,13 @@ STATIC OP *sub_op_test_pp(pTHX) {
 
 /* --- XS ------------------------------------------------------------------ */
 
-MODULE = Sub::Op::Test      PACKAGE = Sub::Op::Test
+MODULE = Sub::Op::LexicalSub      PACKAGE = Sub::Op::LexicalSub
 
 PROTOTYPES: ENABLE
 
 BOOT:
 {
- sub_op_test_map = newHV();
+ sols_map = newHV();
 }
 
 void
@@ -76,9 +76,9 @@ PPCODE:
   cb = SvRV(cb);
   if (SvTYPE(cb) >= SVt_PVCV) {
    c.name  = SvPV_const(name, c.len);
-   c.check = sub_op_test_check;
+   c.check = sols_check;
    c.ud    = SvREFCNT_inc(cb);
-   c.pp    = sub_op_test_pp;
+   c.pp    = sols_pp;
    sub_op_register(aTHX_ &c);
   }
  }