From cd39f2b66bd181466dfcec205891c8c477478488 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 2 Nov 1999 20:46:27 +0000 Subject: Initial integration of the MacPerl changes form Matthias. p4raw-id: //depot/cfgperl@4508 --- run.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'run.c') diff --git a/run.c b/run.c index a6391e9b9f..cd831cb4ad 100644 --- a/run.c +++ b/run.c @@ -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, -- cgit v1.2.1