This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Optimise 1 arg in list assign
authorDavid Mitchell <davem@iabyn.com>
Thu, 13 Aug 2015 16:00:32 +0000 (17:00 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 17 Aug 2015 10:16:23 +0000 (11:16 +0100)
commit808ce55782035154ec42358256dbec2e226977fe
treec3764561aa35c37a5bf8eb033e06facda05f3e2f
parent71afaecef1b2593c92e9603a00232b189f376700
Optimise 1 arg in list assign

Avoid setting common scalar flags in these cases:

($x) = (...);
(...) = ($x);
op.c
t/op/aassign.t
t/perf/benchmarks
t/perf/optree.t