diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-04-25 01:58:15 +0300 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-04-25 07:47:11 +0000 |
| commit | aadb217dbe1b43fbd45cb1644a86dd26d09068d0 (patch) | |
| tree | f1347bfcdab878b369720066765c6126f125bac5 /mg.c | |
| parent | f464ba52b9670216e4d7f1e806fdbca7fb072215 (diff) | |
| download | perl-aadb217dbe1b43fbd45cb1644a86dd26d09068d0.tar.gz | |
combopatch
Message-ID: <426BFA57.9060105@iki.fi>
p4raw-id: //depot/perl@24318
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 15 |
1 files changed, 3 insertions, 12 deletions
@@ -54,15 +54,6 @@ tie. Signal_t Perl_csighandler(int sig); -/* if you only have signal() and it resets on each signal, FAKE_PERSISTENT_SIGNAL_HANDLERS fixes */ -#if !defined(HAS_SIGACTION) && defined(VMS) -# define FAKE_PERSISTENT_SIGNAL_HANDLERS -#endif -/* if we're doing kill() with sys$sigprc on VMS, FAKE_DEFAULT_SIGNAL_HANDLERS */ -#if defined(KILL_BY_SIGPRC) -# define FAKE_DEFAULT_SIGNAL_HANDLERS -#endif - static void restore_magic(pTHX_ const void *p); static void unwind_handler_stack(pTHX_ const void *p); @@ -2519,11 +2510,11 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) I32 Perl_whichsig(pTHX_ const char *sig) { - register const char * const *sigv; + register char* const* sigv; - for (sigv = PL_sig_name; *sigv; sigv++) + for (sigv = (char* const*)PL_sig_name; *sigv; sigv++) if (strEQ(sig,*sigv)) - return PL_sig_num[sigv - PL_sig_name]; + return PL_sig_num[sigv - (char* const*)PL_sig_name]; #ifdef SIGCLD if (strEQ(sig,"CHLD")) return SIGCLD; |