summaryrefslogtreecommitdiff
path: root/win32
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2006-12-02 15:48:54 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-12-03 19:16:17 +0000
commit432ce8742246acadf2cbd18b5d853ae8e4a260e3 (patch)
tree1456bab6cb9bc249bee216e051eaa6cdba22f9aa /win32
parent304ee84bde82d4eee33b0d0ff03080b360eae72b (diff)
downloadperl-432ce8742246acadf2cbd18b5d853ae8e4a260e3.tar.gz
Re: [PATCH] Re: [PATCH] Re: [PATCH] abstract mempool header testing
Message-ID: <9b18b3110612020548l7c5aefd4m19cb0b5c4395abb4@mail.gmail.com> p4raw-id: //depot/perl@29442
Diffstat (limited to 'win32')
-rw-r--r--win32/perllib.c16
1 files changed, 13 insertions, 3 deletions
diff --git a/win32/perllib.c b/win32/perllib.c
index 1e4ba09001..d1afa163c8 100644
--- a/win32/perllib.c
+++ b/win32/perllib.c
@@ -248,18 +248,28 @@ RunPerl(int argc, char **argv, char **env)
exitstatus = perl_run(my_perl);
#endif
}
-
+
perl_destruct(my_perl);
- perl_free(my_perl);
#ifdef USE_ITHREADS
if (new_perl) {
PERL_SET_THX(new_perl);
perl_destruct(new_perl);
+ PERL_SET_THX(my_perl);
+ }
+#endif
+
+ PERL_SYS_TERM();
+
+ perl_free(my_perl);
+
+#ifdef USE_ITHREADS
+ if (new_perl) {
+ PERL_SET_THX(new_perl);
perl_free(new_perl);
}
#endif
- PERL_SYS_TERM();
+
return (exitstatus);
}