Clone PL_statusvalue_posix [PATCH]

Message-ID: <lr3bni8ska.fsf_-_@caliper.activestate.com>

p4raw-id: //depot/perl@25687

diff --git a/sv.c b/sv.c
index 24c497d..3581b50 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11462,6 +11462,8 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
     PL_statusvalue     = proto_perl->Istatusvalue;
 #ifdef VMS
     PL_statusvalue_vms = proto_perl->Istatusvalue_vms;
+#else
+    PL_statusvalue_posix = proto_perl->Istatusvalue_posix;
 #endif
     PL_encoding                = sv_dup(proto_perl->Iencoding, param);