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

p4raw-id: //depot/perl@3511

1 files changed, 1 insertions, 0 deletions

diff --git a/proto.h b/proto.h
index 6ec5b378d4..89c70fc826 100644
--- a/proto.h
+++ b/proto.h
@@ -760,6 +760,7 @@ I32 dopoptolabel _((char *label));
 I32 dopoptoloop _((I32 startingblock));
 I32 dopoptosub _((I32 startingblock));
 I32 dopoptosub_at _((PERL_CONTEXT* cxstk, I32 startingblock));
+void free_closures _((void));
 void save_lines _((AV *array, SV *sv));
 OP *doeval _((int gimme, OP** startop));
 PerlIO *doopen_pmc _((const char *name, const char *mode));