summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/ExtUtils/Miniperl.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/Miniperl.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/ExtUtils/Miniperl.pm18
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;