rev |
line source |
slaxemulator@6585
|
1 --- miniperlmain.c.orig
|
slaxemulator@6585
|
2 +++ miniperlmain.c
|
slaxemulator@6585
|
3 @@ -117,13 +117,6 @@
|
slaxemulator@6585
|
4 if (!exitstatus)
|
slaxemulator@6585
|
5 perl_run(my_perl);
|
slaxemulator@6585
|
6
|
slaxemulator@6585
|
7 - /* Unregister our signal handler before destroying my_perl */
|
slaxemulator@6585
|
8 - for (i = 0; PL_sig_name[i]; i++) {
|
slaxemulator@6585
|
9 - if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) {
|
slaxemulator@6585
|
10 - rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL);
|
slaxemulator@6585
|
11 - }
|
slaxemulator@6585
|
12 - }
|
slaxemulator@6585
|
13 -
|
slaxemulator@6585
|
14 exitstatus = perl_destruct(my_perl);
|
slaxemulator@6585
|
15
|
slaxemulator@6585
|
16 perl_free(my_perl);
|