handle cloning of parsers on the save stack

p4raw-id: //depot/perl@29678

1 files changed, 1 insertions, 1 deletions

diff --git a/perly.c b/perly.c
index 4e3a7e2218..8ce76abf7a 100644
--- a/perly.c
+++ b/perly.c
@@ -348,7 +348,7 @@ Perl_yyparse (pTHX)
     ps = parser->ps;
 
     ENTER;  /* force parser free before we return */
-    SAVEDESTRUCTOR_X(Perl_parser_free, (void*) parser);
+    SAVEPARSER(parser);
 
 /*------------------------------------------------------------.
 | yynewstate -- Push a new state, which is found in yystate.  |