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, 4 insertions, 2 deletions

diff --git a/mg.c b/mg.c
index b272c7a3ff..712a339db0 100644
--- a/mg.c
+++ b/mg.c
@@ -1018,6 +1018,7 @@ Perl_magic_set_all_env(pTHX_ SV *sv, MAGIC *mg)
 int
 Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
 {
+#ifndef PERL_MICRO
 #if defined(VMS) || defined(EPOC)
     Perl_die(aTHX_ "Can't make list assignment to %%ENV on this system");
 #else
@@ -1044,7 +1045,8 @@ Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
     }
 #    endif /* USE_ENVIRON_ARRAY */
 #   endif /* PERL_IMPLICIT_SYS || WIN32 */
-#endif /* VMS || EPC */
+#endif /* VMS || EPOC */
+#endif /* !PERL_MICRO */
     return 0;
 }
 
@@ -2538,7 +2540,7 @@ cleanup:
 
     PL_Sv = tSv;			/* Restore global temporaries. */
     PL_Xpv = tXpv;
-    return;
+    return 0;
 }