fix memory leak in C<eval 'return sub {...}'>

p4raw-id: //depot/perl@3511

1 files changed, 2 insertions, 0 deletions

diff --git a/objXSUB.h b/objXSUB.h
index 658e5ce226..d37a925037 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -1221,6 +1221,8 @@
 #define form			pPerl->Perl_form
 #undef  fprintf
 #define fprintf			pPerl->Perl_fprintf
+#undef  free_closures
+#define free_closures		pPerl->Perl_free_closures
 #undef  free_tmps
 #define free_tmps		pPerl->Perl_free_tmps
 #undef  gen_constant_list