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

compatibility; introduce SAVEDESTRUCTOR_X() that accepts
void(*)(pTHX_ void*)

p4raw-id: //depot/perl@4339

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index ed7436933b..65a3b90e74 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1509,7 +1509,7 @@ S_regtry(pTHX_ regexp *prog, char *startpos)
 	    }
 	    PL_reg_magic    = mg;
 	    PL_reg_oldpos   = mg->mg_len;
-	    SAVEDESTRUCTOR(restore_pos, 0);
+	    SAVEDESTRUCTOR_X(restore_pos, 0);
         }
 	if (!PL_reg_curpm)
 	    New(22,PL_reg_curpm, 1, PMOP);