diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-02 20:46:27 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-02 20:46:27 +0000 |
| commit | cd39f2b66bd181466dfcec205891c8c477478488 (patch) | |
| tree | 21f5dde2bc1335cd1745fe514b6df8f4c6bf1ffa /run.c | |
| parent | 3cf5c1959ebd22791f34a1706083a3ce9aa50a39 (diff) | |
| download | perl-cd39f2b66bd181466dfcec205891c8c477478488.tar.gz | |
Initial integration of the MacPerl changes form Matthias.
p4raw-id: //depot/cfgperl@4508
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -22,7 +22,11 @@ Perl_runops_standard(pTHX) { dTHR; - while ( PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX) ) ; + while ( PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX) ) { +#ifdef MACOS_TRADITIONAL + MACPERL_DO_ASYNC_TASKS(); +#endif + } TAINT_NOT; return 0; @@ -40,6 +44,9 @@ Perl_runops_debug(pTHX) } do { +#ifdef MACOS_TRADITIONAL + MACPERL_DO_ASYNC_TASKS(); +#endif if (PL_debug) { if (PL_watchaddr != 0 && *PL_watchaddr != PL_watchok) PerlIO_printf(Perl_debug_log, |