make PL_origenviron global

The purpose of PL_origenviron is to preserve the earliest known value
of environ, which is a global. All interpreters should share it.

1 files changed, 2 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 9bd4b3ed26..b3e16c0eaf 100644
--- a/perl.c
+++ b/perl.c
@@ -360,7 +360,8 @@ perl_construct(pTHXx)
 
 #ifndef PERL_MICRO
 #   ifdef  USE_ENVIRON_ARRAY
-    PL_origenviron = environ;
+    if (!PL_origenviron)
+        PL_origenviron = environ;
 #   endif
 #endif