Front page | perl.perl5.porters |
Postings from June 2013
On Tue Feb 19 07:08:56 2013, pcm wrote:
> Father C -
>
> This change:
>
> diff --git a/op.c b/op.c
> index c9a1b53..9c2d06a 100644
> --- a/op.c
> +++ b/op.c
> @@ -8135,7 +8135,6 @@ Perl_newCVREF(pTHX_ I32 flags, OP *o)
> dVAR;
> o->op_type = OP_PADCV;
> o->op_ppaddr = PL_ppaddr[OP_PADCV];
> - return o;
> }
> return newUNOP(OP_RV2CV, flags, scalar(o));
> }
>
> Seems like it should be sufficient for the fix, but it's causing
> assertion failures on assert(hek) in the case of a const sub:
>
> 'my sub if(){44} if;' # boom!
>
> I haven't been able to chase down a fix for that part yet, though.
That part I’ve fixed in commit 83a72a15a3.
--
Father Chrysostomos
---
via perlbug: queue: perl5 status: open
https://rt.perl.org:443/rt3/Ticket/Display.html?id=116735
Thread Next