wok-6.x diff perl/stuff/miniperlmain.patch @ rev 8919

Up: tazwok 4.2.2
author Antoine Bodin <gokhlayeh@slitaz.org>
date Tue Mar 01 00:18:27 2011 +0100 (2011-03-01)
parents
children
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/perl/stuff/miniperlmain.patch	Tue Mar 01 00:18:27 2011 +0100
     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);