develooper Front page | perl.perl5.porters | Postings from June 2012

No signal zero

From:
Rev. Chip
Date:
June 22, 2012 15:07
Subject:
No signal zero
Message ID:
20120622220725.GA25613@tytlal.tinsaucer.com
I just pushed this as an obvious fix -- there is no signal zero, so don't
try to restore its nonexistent state.

--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -120,7 +120,7 @@ main(int argc, char **argv, char **env)
 
 #ifndef PERL_MICRO
     /* Unregister our signal handler before destroying my_perl */
-    for (i = 0; PL_sig_name[i]; i++) {
+    for (i = 1; 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);
        }

-- 
Chip Salzenberg



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About