revert SAVEDESTRUCTOR() to accepting void(*)(void*) for source

[perl5.git] / ext / Devel / DProf / DProf.xs

diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs
index 69f0b89..220a1e2 100644 (file)
--- a/ext/Devel/DProf/DProf.xs
+++ b/ext/Devel/DProf/DProf.xs
@@ -561,7 +561,7 @@ XS(XS_DB_sub)
         sv_setiv( DBsingle, 0 ); /* disable DB single-stepping */
 #endif 
 
-       SAVEDESTRUCTOR(check_depth, (void*)depth);
+       SAVEDESTRUCTOR_X(check_depth, (void*)depth);
        depth++;
 
         prof_mark( OP_ENTERSUB );