summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-06-01 13:03:56 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-06-01 13:03:56 +0000
commit64ca3a6502a07a2652bb713108527be0e9066745 (patch)
treebdae1e21c52d16e08db1307a9a7bf06bd00136a6 /perl.c
parent53fe373b05b06f68094ed67e5c78b4dda7f0d5b8 (diff)
downloadperl-64ca3a6502a07a2652bb713108527be0e9066745.tar.gz
Signals-be-gone for microperl.
p4raw-id: //depot/cfgperl@6193
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index 5df462db9d..8b970a2e23 100644
--- a/perl.c
+++ b/perl.c
@@ -1180,6 +1180,7 @@ print \" \\@INC:\\n @INC\\n\";");
validate_suid(validarg, scriptname,fdscript);
+#ifndef PERL_MICRO
#if defined(SIGCHLD) || defined(SIGCLD)
{
#ifndef SIGCHLD
@@ -1194,6 +1195,7 @@ print \" \\@INC:\\n @INC\\n\";");
}
}
#endif
+#endif
#ifdef MACOS_TRADITIONAL
if (PL_doextract || gMacPerl_AlwaysExtract) {
@@ -1239,9 +1241,11 @@ print \" \\@INC:\\n @INC\\n\";");
if (xsinit)
(*xsinit)(aTHXo); /* in case linked C routines want magical variables */
+#ifndef PERL_MICRO
#if defined(VMS) || defined(WIN32) || defined(DJGPP) || defined(__CYGWIN__)
init_os_extras();
#endif
+#endif
#ifdef USE_SOCKS
SOCKSinit(argv[0]);