diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-31 21:10:09 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-31 21:10:09 +0000 |
| commit | 23ada85b460be8277660729bedb0954a8b123cf2 (patch) | |
| tree | 8646ba1f214eb024db9147266ce392b63d7b0051 /mg.c | |
| parent | add58217c06d6308f341533176f1eb11449911c8 (diff) | |
| download | perl-23ada85b460be8277660729bedb0954a8b123cf2.tar.gz | |
A bit more descriptive name.
p4raw-id: //depot/perl@12798
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -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 |