wok-next annotate microperl/stuff/patches/miniperlmain.patch @ rev 20811

blazekiss: up (20170630); add icons
author Aleksej Bobylev <al.bobylev@gmail.com>
date Wed Jun 13 16:49:32 2018 +0300 (2018-06-13)
parents 96871f3890f0
children
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);