Apply much of Ilya's microperl patch, but instead of

implementing the opendir()/readdir()/closedir() using
external commands give up "ANSI-pureness" and define them
in uconfig.sh, also define other stuff like rename() and putenv().
Leave out the $| emulation in my_fork() since we are
not supposed to have fork() under microperl.

p4raw-id: //depot/perl@20646

1 files changed, 2 insertions, 0 deletions

diff --git a/sv.c b/sv.c
index 2c24d266ce..c93c0ea32a 100644
--- a/sv.c
+++ b/sv.c
@@ -7379,6 +7379,7 @@ Perl_sv_reset(pTHX_ register char *s, HV *stash)
 		}
 		if (GvHV(gv) && !HvNAME(GvHV(gv))) {
 		    hv_clear(GvHV(gv));
+#ifndef PERL_MICRO
 #ifdef USE_ENVIRON_ARRAY
 		    if (gv == PL_envgv
 #  ifdef USE_ITHREADS
@@ -7389,6 +7390,7 @@ Perl_sv_reset(pTHX_ register char *s, HV *stash)
 			environ[0] = Nullch;
 		    }
 #endif
+#endif /* !PERL_MICRO */
 		}
 	    }
 	}