[perl #93638] $ENV{LS_COLORS} causes miniperl glob failure

On some systems, csh croaks if the LS_COLORS envvar contains something
it considers invalid.

The easiest and least intrusive fix for now is to localize %ENV before
running csh, though eventually it might be nice to use File::Glob in
miniperl, either by linking it statically or by inlining it.

1 files changed, 1 insertions, 0 deletions

diff --git a/doio.c b/doio.c
index 1edf8d29d7..838786efb7 100644
--- a/doio.c
+++ b/doio.c
@@ -2375,6 +2375,7 @@ Perl_vms_start_glob
 #endif
 #endif /* !CSH */
 #endif /* !DOSISH */
+    save_hash(gv_fetchpvs("ENV", 0, SVt_PVHV));
     (void)do_open(PL_last_in_gv, (char*)SvPVX_const(tmpcmd), SvCUR(tmpcmd),
 		  FALSE, O_RDONLY, 0, NULL);
     fp = IoIFP(io);