bleadperl is getting:
DProf.xs:140: warning: `unused' attribute ignored
The following fixes it; I thought about defining a pTHX_bare in
perl.h that leaves off the register and PERL_UNUSED_DECL from pTHX,
but decided there really wasn't going to be a lot of other demand
for it. The aTHX would have worked as is, but I thought it better
to make both mentions just "my_perl".
--- p/ext/Devel/DProf/DProf.xs.orig 2005-07-08 10:03:01.000000000 -0700
+++ p/ext/Devel/DProf/DProf.xs 2005-09-18 18:13:43.028478400 -0700
@@ -136,9 +136,7 @@
long long start_cnt;
#endif
#ifdef PERL_IMPLICIT_CONTEXT
-# define register
- pTHX;
-# undef register
+ PerlInterpreter *my_perl;
#endif
} prof_state_t;
@@ -170,7 +168,7 @@
#define g_default_perldb g_prof_state.default_perldb
#define g_depth g_prof_state.depth
#ifdef PERL_IMPLICIT_CONTEXT
-# define g_THX g_prof_state.aTHX
+# define g_THX g_prof_state.my_perl
#endif
#ifdef OS2
# define g_frequ g_prof_state.frequ
