From: Artur Bergman <sky@nanisky.com>
Date: Fri, 17 Aug 2001 13:34:04 +0000 (+0000)
Subject: Let perl_clone copy PL_exit_flags
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1cbb078197bd3e77d2e55e7444405d31766c0c3b;p=p5sagit%2Fp5-mst-13.2.git

Let perl_clone copy PL_exit_flags

p4raw-id: //depot/perl@11708
---

diff --git a/sv.c b/sv.c
index 3426596..d157f71 100644
--- a/sv.c
+++ b/sv.c
@@ -9784,6 +9784,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_e_script		= sv_dup_inc(proto_perl->Ie_script, param);
     PL_perldb		= proto_perl->Iperldb;
     PL_perl_destruct_level = proto_perl->Iperl_destruct_level;
+    PL_exit_flags       = proto_perl->Iexit_flags;
 
     /* magical thingies */
     /* XXX time(&PL_basetime) when asked for? */