wok-next diff perl/stuff/miniperlmain.patch @ rev 14731
xorg-xf86-video-ati: update genpkg_rules
author | Pascal Bellard <pascal.bellard@slitaz.org> |
---|---|
date | Thu Jun 13 11:00:23 2013 +0200 (2013-06-13) |
parents | |
children |
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/perl/stuff/miniperlmain.patch Thu Jun 13 11:00:23 2013 +0200 1.3 @@ -0,0 +1,16 @@ 1.4 +--- miniperlmain.c.orig 1.5 ++++ miniperlmain.c 1.6 +@@ -117,13 +117,6 @@ 1.7 + if (!exitstatus) 1.8 + perl_run(my_perl); 1.9 + 1.10 +- /* Unregister our signal handler before destroying my_perl */ 1.11 +- for (i = 0; PL_sig_name[i]; i++) { 1.12 +- if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) { 1.13 +- rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL); 1.14 +- } 1.15 +- } 1.16 +- 1.17 + exitstatus = perl_destruct(my_perl); 1.18 + 1.19 + perl_free(my_perl);