develooper Front page | perl.perl5.porters | Postings from September 2013

Re: [perl #119251] [PATCH] Enhancement request - a prototype attribute

Thread Previous | Thread Next
From:
Peter Martini
Date:
September 17, 2013 06:33
Subject:
Re: [perl #119251] [PATCH] Enhancement request - a prototype attribute
Message ID:
CAFyW6MQ+YUUwR1Cr5sDRThB3+GA7MMwd2FQ3Jaa3TN43ozSJuA@mail.gmail.com
On Tue, Sep 17, 2013 at 2:09 AM, Peter Martini <petercmartini@gmail.com> wrote:
> On Wed, Aug 14, 2013 at 2:54 AM, Father Chrysostomos via RT
> <perlbug-followup@perl.org> wrote:
>> That gets a bit messy, even if it is faster.  Maybe this is better:
>>
>> SV * const new_sv = newSVpvn_flags(pv+10, pvlen - 11, SvUTF8(cSVOPo_sv));
>> SvREFCNT_dec(cSVOPo_sv);
>> cSVOPo_sv = new_sv;
>> new_proto = o
>> *attrs = NULL;
>

Actually, cSVOPo_sv = new_sv doesn't work in threaded builds, since
its not an lvalue.  cSVOPx_svp(o) should work though.

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