Fix for {ENTER,LEAVE}_with_name

diff --git a/indirect.xs b/indirect.xs
index df9bca8d979753c50637b079c8b639cab73f51c8..a38186e3968ed110bc388fb075bf9437337c22e8 100644 (file)
--- a/indirect.xs
+++ b/indirect.xs
@@ -59,6 +59,14 @@
 # define HvNAMELEN_get(H) strlen(HvNAME_get(H))
 #endif
 
 # 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)
 #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;
  {
   level = PerlMemShared_malloc(sizeof *level);
   *level = 1;

-  LEAVE;
+  LEAVE_with_name("sub");

   SAVEDESTRUCTOR_X(indirect_thread_cleanup, level);
   SAVEDESTRUCTOR_X(indirect_thread_cleanup, level);

-  ENTER;
+  ENTER_with_name("sub");

  }
 
 #endif
  }
 
 #endif