wok-current diff perl/stuff/miniperlmain.patch @ rev 17577
Revert: gnupg
author | Alexander Medvedev <devl547@gmail.com> |
---|---|
date | Sat Feb 07 22:15:03 2015 +0000 (2015-02-07) |
parents | |
children |
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/perl/stuff/miniperlmain.patch Sat Feb 07 22:15:03 2015 +0000 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);