From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 31 Oct 2001 21:10:09 +0000 (+0000)
Subject: A bit more descriptive name.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=23ada85b460be8277660729bedb0954a8b123cf2;p=p5sagit%2Fp5-mst-13.2.git

A bit more descriptive name.

p4raw-id: //depot/perl@12798
---

diff --git a/mg.c b/mg.c
index 109d321..6350690 100644
--- a/mg.c
+++ b/mg.c
@@ -25,9 +25,9 @@
 #  endif
 #endif
 
-/* if you only have signal() and it resets on each signal, SIGNAL_FIX fixes */
+/* if you only have signal() and it resets on each signal, FAKE_PERSISTENT_SIGNAL_HANDLERS fixes */
 #if !defined(HAS_SIGACTION) && defined(VMS)
-#  define  SIGNAL_FIX
+#  define  FAKE_PERSISTENT_SIGNAL_HANDLERS
 #endif
 
 static void restore_magic(pTHX_ void *p);
@@ -990,7 +990,7 @@ Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
     return 0;
 }
 
-#ifdef SIGNAL_FIX   
+#ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS   
 static int sig_ignoring_initted = 0;
 static int sig_ignoring[SIG_SIZE];      /* which signals we are ignoring */
 #endif
@@ -1008,7 +1008,7 @@ Perl_magic_getsig(pTHX_ SV *sv, MAGIC *mg)
     	    sv_setsv(sv,PL_psig_ptr[i]);
     	else {
     	    Sighandler_t sigstate;
-#ifdef SIGNAL_FIX
+#ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS
     	    if (sig_ignoring_initted && sig_ignoring[i]) 
     	      sigstate = SIG_IGN;
     	    else
@@ -1061,7 +1061,7 @@ Perl_csighandler(int sig)
 #ifndef PERL_OLD_SIGNALS
     dTHX;
 #endif
-#ifdef SIGNAL_FIX
+#ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS
     (void) rsignal(sig, &Perl_csighandler);
     if (sig_ignoring[sig]) return;
 #endif
@@ -1115,7 +1115,7 @@ Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg)
 		Perl_warner(aTHX_ WARN_SIGNAL, "No such signal: SIG%s", s);
 	    return 0;
 	}
-#ifdef SIGNAL_FIX
+#ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS
 	if (!sig_ignoring_initted) {
 	    int j;
 	    for (j = 0; j < SIG_SIZE; j++) sig_ignoring[j] = 0;
@@ -1140,7 +1140,7 @@ Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg)
     s = SvPV_force(sv,len);
     if (strEQ(s,"IGNORE")) {
 	if (i) {
-#ifdef SIGNAL_FIX
+#ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS
 	    sig_ignoring[i] = 1;
 	    (void)rsignal(i, &Perl_csighandler);
 #else