develooper Front page | perl.perl5.porters | Postings from April 2010

Re: [perl #73480] Safe signals slowdown

Thread Previous | Thread Next
From:
Nicholas Clark
Date:
April 15, 2010 05:07
Subject:
Re: [perl #73480] Safe signals slowdown
Message ID:
20100415120700.GM9998@plum.flirble.org
On Thu, Mar 11, 2010 at 10:26:43PM +0000, hv@crypt.org wrote:

> Hugo
> --- run.c.old	2010-03-11 19:06:10.000000000 +0000
> +++ run.c	2010-03-11 22:05:44.000000000 +0000
> @@ -37,7 +37,8 @@
>  Perl_runops_standard(pTHX)
>  {
>      dVAR;
> -    while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) {
> +    register OP* op = PL_op;
> +    while ((PL_op = op = CALL_FPTR(op->op_ppaddr)(aTHX))) {
>      }
>  
>      TAINT_NOT;

"Applied" (by hand) as 339aac22c2768aa840858c042e33fbf04d4f51ed.

Nicholas Clark

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About