microperl-no-signal-handlers.patch 782 B

12345678910111213141516171819202122
  1. Backport of http://perl5.git.perl.org/perl.git/commitdiff/01d65469392dfc0a?hp=a82b5f080d91ffe184d8ac4795ac71e72e612c2f
  2. Signed-off-by: Gustavo Zacarias <gustavo@zacarias.com.ar>
  3. diff -Nura perl-5.12.3/miniperlmain.c perl-5.12.3-nosig/miniperlmain.c
  4. --- perl-5.12.3/miniperlmain.c 2011-01-09 17:20:57.000000000 -0300
  5. +++ perl-5.12.3-nosig/miniperlmain.c 2011-04-14 10:16:53.564639438 -0300
  6. @@ -116,12 +116,14 @@
  7. if (!exitstatus)
  8. perl_run(my_perl);
  9. +#ifndef PERL_MICRO
  10. /* Unregister our signal handler before destroying my_perl */
  11. for (i = 0; PL_sig_name[i]; i++) {
  12. if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) {
  13. rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL);
  14. }
  15. }
  16. +#endif
  17. exitstatus = perl_destruct(my_perl);