This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
deprecation warning on deprecated-in-core .pl libs
[perl5.git]
/
miniperlmain.c
diff --git
a/miniperlmain.c
b/miniperlmain.c
index
5702b81
..
39f8f19
100644
(file)
--- a/
miniperlmain.c
+++ b/
miniperlmain.c
@@
-1,7
+1,7
@@
/* miniperlmain.c
*
* Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003,
/* miniperlmain.c
*
* Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003,
- * 2004, 2005, 2006 by Larry Wall and others
+ * 2004, 2005, 2006
, 2007,
by Larry Wall and others
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
@@
-9,7
+9,11
@@
*/
/*
*/
/*
- * "The Road goes ever on and on, down from the door where it began."
+ * The Road goes ever on and on
+ * Down from the door where it began.
+ *
+ * [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
+ * [Frodo on p.73 of _The Lord of the Rings_, I/iii: "Three Is Company"]
*/
/* This file contains the main() function for the perl interpreter.
*/
/* This file contains the main() function for the perl interpreter.
@@
-38,7
+42,7
@@
static void xs_init (pTHX);
static PerlInterpreter *my_perl;
static void xs_init (pTHX);
static PerlInterpreter *my_perl;
-#if defined (
__MINT__) || defined (
atarist)
+#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;
/* The Atari operating system doesn't have a dynamic stack. The
stack size is determined from this value. */
long _stksize = 64 * 1024;
@@
-63,7
+67,7
@@
main(int argc, char **argv, char **env)
#endif
{
dVAR;
#endif
{
dVAR;
- int exitstatus;
+ int exitstatus
, i
;
#ifdef PERL_GLOBAL_STRUCT
struct perl_vars *plvarsp = init_global_struct();
# ifdef PERL_GLOBAL_STRUCT_PRIVATE
#ifdef PERL_GLOBAL_STRUCT
struct perl_vars *plvarsp = init_global_struct();
# ifdef PERL_GLOBAL_STRUCT_PRIVATE
@@
-112,6
+116,13
@@
main(int argc, char **argv, char **env)
if (!exitstatus)
perl_run(my_perl);
if (!exitstatus)
perl_run(my_perl);
+ /* Unregister our signal handler before destroying my_perl */
+ for (i = 0; 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);
+ }
+ }
+
exitstatus = perl_destruct(my_perl);
perl_free(my_perl);
exitstatus = perl_destruct(my_perl);
perl_free(my_perl);