diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/Miniperl.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/ExtUtils/Miniperl.pm | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/Master/tlpkg/tlperl/lib/ExtUtils/Miniperl.pm b/Master/tlpkg/tlperl/lib/ExtUtils/Miniperl.pm index 0a2cb627abe..04bdb6d7e38 100644 --- a/Master/tlpkg/tlperl/lib/ExtUtils/Miniperl.pm +++ b/Master/tlpkg/tlperl/lib/ExtUtils/Miniperl.pm @@ -58,12 +58,6 @@ $head= <<'EOF!HEAD'; static void xs_init (pTHX); static PerlInterpreter *my_perl; -#if defined (atarist) -/* The Atari operating system doesn't have a dynamic stack. The - stack size is determined from this value. */ -long _stksize = 64 * 1024; -#endif - #if defined(PERL_GLOBAL_STRUCT_PRIVATE) /* The static struct perl_vars* may seem counterproductive since the * whole idea PERL_GLOBAL_STRUCT_PRIVATE was to avoid statics, but note @@ -136,7 +130,7 @@ main(int argc, char **argv, char **env) #ifndef PERL_MICRO /* Unregister our signal handler before destroying my_perl */ - for (i = 0; PL_sig_name[i]; i++) { + for (i = 1; PL_sig_name[i]; i++) { if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) { rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL); } @@ -160,12 +154,12 @@ main(int argc, char **argv, char **env) environ = env; #endif + PERL_SYS_TERM(); + #ifdef PERL_GLOBAL_STRUCT free_global_struct(plvarsp); #endif /* PERL_GLOBAL_STRUCT */ - PERL_SYS_TERM(); - exit(exitstatus); return exitstatus; } @@ -185,10 +179,10 @@ xs_init(pTHX) * Local variables: * c-indentation-style: bsd * c-basic-offset: 4 - * indent-tabs-mode: t + * indent-tabs-mode: nil * End: * - * ex: set ts=8 sts=4 sw=4 noet: + * ex: set ts=8 sts=4 sw=4 et: */ EOF!TAIL @@ -210,7 +204,7 @@ sub writemain{ my ($tail1,$tail2,$tail3) = ( $tail =~ /\A(.*{\s*\n)(.*\n)(\s*\}.*)\Z/s ); print $tail1; - print "\tconst char file[] = __FILE__;\n"; + print "\tstatic const char file[] = __FILE__;\n"; print "\tdXSUB_SYS;\n" if $] > 5.002; print $tail2; |