X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=a38186e3968ed110bc388fb075bf9437337c22e8;hp=df9bca8d979753c50637b079c8b639cab73f51c8;hb=7724326af5714845b7de9dd6ded67536f96ac2fc;hpb=90ac1453cad3b894c5e1d7962afe502d03112bb9

diff --git a/indirect.xs b/indirect.xs
index df9bca8..a38186e 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -59,6 +59,14 @@
 # define HvNAMELEN_get(H) strlen(HvNAME_get(H))
 #endif
 
+#ifndef ENTER_with_name
+# define ENTER_with_name(N) ENTER
+#endif
+
+#ifndef LEAVE_with_name
+# define LEAVE_with_name(N) LEAVE
+#endif
+
 #define I_HAS_PERL(R, V, S) (PERL_REVISION > (R) || (PERL_REVISION == (R) && (PERL_VERSION > (V) || (PERL_VERSION == (V) && (PERL_SUBVERSION >= (S))))))
 
 #if I_HAS_PERL(5, 10, 0) || defined(PL_parser)
@@ -882,9 +890,9 @@ CODE:
  {
   level = PerlMemShared_malloc(sizeof *level);
   *level = 1;
-  LEAVE;
+  LEAVE_with_name("sub");
   SAVEDESTRUCTOR_X(indirect_thread_cleanup, level);
-  ENTER;
+  ENTER_with_name("sub");
  }
 
 #endif