wok-current view perl/stuff/miniperlmain.patch @ rev 15721
Move from undigest: bullet bullet-dev connman-ui cplay dconf dconf-dev dfc dnstop efl efl-dev evolution-data-server evolution-data-server-dev goaccess granite granite-dev granite-demo l3afpad ldm linmodem-hsfmodem marlin marlin-dev miniupnpd
| author | Pascal Bellard <pascal.bellard@slitaz.org> |
|---|---|
| date | Thu Dec 26 13:16:14 2013 +0000 (2013-12-26) |
| parents | |
| children |
line source
1 --- miniperlmain.c.orig
2 +++ miniperlmain.c
3 @@ -117,13 +117,6 @@
4 if (!exitstatus)
5 perl_run(my_perl);
7 - /* Unregister our signal handler before destroying my_perl */
8 - for (i = 0; PL_sig_name[i]; i++) {
9 - if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) {
10 - rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL);
11 - }
12 - }
13 -
14 exitstatus = perl_destruct(my_perl);
16 perl_free(my_perl);