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.Thread Next