[perl #98174] [PATCH] Fix overloaded <> when the peephole optimiser is disabled.

On Wed Aug 31 06:25:58 2011, ggoossen wrote:
> 
> This is a bug report for perl from gerard@ggoossen.net,
> generated with the help of perlbug 1.39 running under perl 5.15.2.
> 
> From a8d296ff662dd76673529c754f414b1cf2d02195 Mon Sep 17 00:00:00 2001
> From: Gerard Goossen <gerard@ggoossen.net>
> Date: Sat, 27 Aug 2011 17:08:07 +0200
> Subject: [PATCH] Fix overloaded <> when the peephole optimiser is
> disabled.
> 
> ---
>  pp.h |    6 +++++-
>  1 files changed, 5 insertions(+), 1 deletions(-)
> 
> diff --git a/pp.h b/pp.h
> index 5cde92b..0ba877f 100644
> --- a/pp.h
> +++ b/pp.h
> @@ -448,8 +448,12 @@ Does not use C<TARG>.  See also C<XPUSHu>,
> C<mPUSHu> and C<PUSHu>.
>  	    SETTARG;						\
>  	    PUTBACK;						\
>  	    if (jump) {						\
> +	        OP *jump_o = NORMAL->op_next;                   \
> +		while (jump_o->op_type == OP_NULL)		\
> +		    jump_o = jump_o->op_next;			\
> +		assert(jump_o->op_type == OP_ENTERSUB);		\
>  		PL_markstack_ptr--;				\
> -		return NORMAL->op_next->op_next;		\
> +		return jump_o->op_next;				\
>  	    }							\
>  	    return NORMAL;					\
>  	}							\

Thank you. Applied as 86e5639.

• [perl #98174] [PATCH] Fix overloaded <> when the peephole optimiser is disabled. by Father Chrysostomos via RT
• [perl #98174] [PATCH] Fix overloaded <> when the peephole optimiser is disabled. by Gerard Goossen