From: Vincent Pit <vince@profvince.com>
Date: Tue, 29 Dec 2009 16:27:38 +0000 (+0100)
Subject: Fix for {ENTER,LEAVE}_with_name
X-Git-Tag: v0.20~11
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=749ccc88bc0e581488d5aac9d827b5171fd8793b;p=perl%2Fmodules%2Findirect.git

Fix for {ENTER,LEAVE}_with_name
---

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