summaryrefslogtreecommitdiff
path: root/embed.pl
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-07-04 04:37:00 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-07-04 04:37:00 +0000
commit6c644e7885bc20d759d8cbcb4abaa8f14113c03b (patch)
treeb06fea5a3d3af10fdc606d828bd9917dfbb7831e /embed.pl
parent612f20c37ac59506501c890e7f9285f551c793d2 (diff)
downloadperl-6c644e7885bc20d759d8cbcb4abaa8f14113c03b.tar.gz
fix memory leak on Windows (PL_sys_intern contents were never
freed) p4raw-id: //depot/perl@6299
Diffstat (limited to 'embed.pl')
-rwxr-xr-xembed.pl5
1 files changed, 2 insertions, 3 deletions
diff --git a/embed.pl b/embed.pl
index 8a89103380..d7605761ee 100755
--- a/embed.pl
+++ b/embed.pl
@@ -2155,17 +2155,16 @@ Ap |GP* |gp_dup |GP* gp
Ap |MAGIC* |mg_dup |MAGIC* mg
Ap |SV* |sv_dup |SV* sstr
#if defined(HAVE_INTERP_INTERN)
+Ap |void |sys_intern_clear
Ap |void |sys_intern_dup |struct interp_intern* src \
|struct interp_intern* dst
+Ap |void |sys_intern_init
#endif
Ap |PTR_TBL_t*|ptr_table_new
Ap |void* |ptr_table_fetch|PTR_TBL_t *tbl|void *sv
Ap |void |ptr_table_store|PTR_TBL_t *tbl|void *oldsv|void *newsv
Ap |void |ptr_table_split|PTR_TBL_t *tbl
#endif
-#if defined(HAVE_INTERP_INTERN)
-Ap |void |sys_intern_init
-#endif
#if defined(PERL_OBJECT)
protected: