This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
SAVEt_CLEARSV: check common flags
authorDavid Mitchell <davem@iabyn.com>
Fri, 28 Feb 2014 17:32:57 +0000 (17:32 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 28 Feb 2014 19:38:10 +0000 (19:38 +0000)
commita07f0bef700684f800e4ba644c33392f5270cfbd
tree0c065ed99e736ea440688a98bf941d358d233142
parentb838857b5256d738820be79973535c28fc4da01c
SAVEt_CLEARSV: check common flags

In the 'clear' branch of SAVEt_CLEARSV, there are several individual
if (SvSOMEFLAG(sv)) {...} tests. Wrap all these tests in a single
if (SvFLAGS(sv) & (union|of|all|flags)), so that for the common case
of boring lexicals that don't need special clear up, we can skip all the
individual tests
scope.c