X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=os2%2Fos2.c;h=f8f4a82735d8498a8d5b64404416409b8bfdc6ac;hb=24a13b90d71fdf865506aa54584da797a181adbb;hp=017230ff0bc821f0f86c05a2a2e468f4370be6bb;hpb=e29f6e029e7eba9cda9e4a39a8f10eebff769325;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/os2/os2.c b/os2/os2.c
index 017230f..f8f4a82 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -1139,12 +1139,15 @@ Xs_OS2_init()
 OS2_Perl_data_t OS2_Perl_data;
 
 void
-Perl_OS2_init()
+Perl_OS2_init(char **env)
 {
     char *shell;
 
     settmppath();
     OS2_Perl_data.xs_init = &Xs_OS2_init;
+    if (environ == NULL) {
+	environ = env;
+    }
     if ( (shell = getenv("PERL_SH_DRIVE")) ) {
 	New(404, sh_path, strlen(SH_PATH) + 1, char);
 	strcpy(sh_path, SH_PATH);