diff options
| author | David Leadbeater <dgl@dgl.cx> | 2011-03-07 18:45:09 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-03-28 10:21:47 +0100 |
| commit | 01d65469392dfc0a9e7a9b5a1a7770e9306b9213 (patch) | |
| tree | 98fcd6031bc4e7a23999d5e9facec2cdd09eee9a /miniperlmain.c | |
| parent | a82b5f080d91ffe184d8ac4795ac71e72e612c2f (diff) | |
| download | perl-01d65469392dfc0a9e7a9b5a1a7770e9306b9213.tar.gz | |
Microperl doesn't do signal handlers, ifdef some handling code
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 59d79b0b99..401af10a2f 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -118,12 +118,14 @@ main(int argc, char **argv, char **env) if (!exitstatus) perl_run(my_perl); +#ifndef PERL_MICRO /* Unregister our signal handler before destroying my_perl */ for (i = 0; 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); } } +#endif exitstatus = perl_destruct(my_perl); |