wok annotate perl/stuff/miniperlmain.patch @ rev 22040
updated tokyocabinet and tokyocabinet-dev (1.4.32 -> 1.4.48)
| author | Hans-G?nter Theisgen |
|---|---|
| date | Mon Oct 21 17:24:12 2019 +0100 (2019-10-21) |
| parents | |
| children |
| rev | line source |
|---|---|
| slaxemulator@6585 | 1 --- miniperlmain.c.orig |
| slaxemulator@6585 | 2 +++ miniperlmain.c |
| slaxemulator@6585 | 3 @@ -117,13 +117,6 @@ |
| slaxemulator@6585 | 4 if (!exitstatus) |
| slaxemulator@6585 | 5 perl_run(my_perl); |
| slaxemulator@6585 | 6 |
| slaxemulator@6585 | 7 - /* Unregister our signal handler before destroying my_perl */ |
| slaxemulator@6585 | 8 - for (i = 0; PL_sig_name[i]; i++) { |
| slaxemulator@6585 | 9 - if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) { |
| slaxemulator@6585 | 10 - rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL); |
| slaxemulator@6585 | 11 - } |
| slaxemulator@6585 | 12 - } |
| slaxemulator@6585 | 13 - |
| slaxemulator@6585 | 14 exitstatus = perl_destruct(my_perl); |
| slaxemulator@6585 | 15 |
| slaxemulator@6585 | 16 perl_free(my_perl); |