summaryrefslogtreecommitdiff
path: root/package/microperl/microperl-no-signal-handlers.patch
diff options
context:
space:
mode:
authorGustavo Zacarias <gustavo@zacarias.com.ar>2012-03-07 13:52:42 -0300
committerPeter Korsgaard <jacmet@sunsite.dk>2012-03-08 22:50:31 +0100
commit335260afd429d694cddd7ada705184ad6717826a (patch)
treec539e52bfa5f15c773515fdd1d5dbeee28336003 /package/microperl/microperl-no-signal-handlers.patch
parentde66776330813806aaf2dc6e349044ef71e83f11 (diff)
microperl: bump to version 5.12.4 and convert to gentargets
* Convert microperl to gentargets infrastructure * Bump to a more modern version 5.12.4 * Introduce the bundle options to simplify people's lives host-microperl is a fully-fledged perl. For the time being we can't build XS modules thus breaking target automake support for example since it requires IO. target-automake was broken before anyway since the automake version bump. Signed-off-by: Gustavo Zacarias <gustavo@zacarias.com.ar> Signed-off-by: Peter Korsgaard <jacmet@sunsite.dk>
Diffstat (limited to 'package/microperl/microperl-no-signal-handlers.patch')
-rw-r--r--package/microperl/microperl-no-signal-handlers.patch22
1 files changed, 22 insertions, 0 deletions
diff --git a/package/microperl/microperl-no-signal-handlers.patch b/package/microperl/microperl-no-signal-handlers.patch
new file mode 100644
index 000000000..3c9aa418e
--- /dev/null
+++ b/package/microperl/microperl-no-signal-handlers.patch
@@ -0,0 +1,22 @@
+Backport of http://perl5.git.perl.org/perl.git/commitdiff/01d65469392dfc0a?hp=a82b5f080d91ffe184d8ac4795ac71e72e612c2f
+
+Signed-off-by: Gustavo Zacarias <gustavo@zacarias.com.ar>
+
+diff -Nura perl-5.12.3/miniperlmain.c perl-5.12.3-nosig/miniperlmain.c
+--- perl-5.12.3/miniperlmain.c 2011-01-09 17:20:57.000000000 -0300
++++ perl-5.12.3-nosig/miniperlmain.c 2011-04-14 10:16:53.564639438 -0300
+@@ -116,12 +116,14 @@
+ if (!exitstatus)
+ perl_run(my_perl);
+
++#ifndef PERL_MICRO
+ /* Unregister our signal handler before destroying my_perl */
+ for (i = 0; PL_sig_name[i]; i++) {
+ if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) {
+ rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL);
+ }
+ }
++#endif
+
+ exitstatus = perl_destruct(my_perl);
+