This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 5c85b63) | patch
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
tree206ebf8696c8d5d589803ed53380191f9b52371etree | snapshot
parent5c85b638cb45ea2b8e5d70bfa899f2db6085e85ccommit | diff
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 diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.