This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
SAVEt_CLEARSV: handle SvOOK() specially
authorDavid Mitchell <davem@iabyn.com>
Fri, 28 Feb 2014 18:40:10 +0000 (18:40 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 28 Feb 2014 19:38:49 +0000 (19:38 +0000)
commit7532eaaef8da50c2ccee274667a2fa4a3dd6e349
tree206ebf8696c8d5d589803ed53380191f9b52371e
parent5c85b638cb45ea2b8e5d70bfa899f2db6085e85c
SAVEt_CLEARSV: handle SvOOK() specially

Add SVf_OOK to the list of flags that are handled in the 'slow' branch.
This allows us to avoid checking for hv_kill_backrefs() or sv_backoff()
for the majority of lexicals which won't require it.
scope.c