This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Speed up compilation of overload.pm a smidge.
authorJames Raspass <jraspass@gmail.com>
Wed, 15 Jul 2015 22:46:20 +0000 (23:46 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 28 Sep 2016 08:46:14 +0000 (09:46 +0100)
commit607ee43568c28c8da9fb4b19d16807dd0214af40
treeb29fff53739c2135968e6d965f0c1be418da0b3a
parent850e14d313dc5493e5162c407f21ae0a9fec2805
Speed up compilation of overload.pm a smidge.

Measured with the following crude perl script calling perf. Perl
is in there to get a rough baseline cost of starting perl:

 print 'PERL', (`perf stat -r100 perl -e 1             2>&1`)[10];
 print 'OLD ', (`perf stat -r100 perl lib/overload.pm  2>&1`)[10];
 print 'NEW ', (`perf stat -r100 perl lib/overload2.pm 2>&1`)[10];

Produced the following results on my machine:

 PERL  5,800,051 instructions # 1.05 insns per cycle ( +- 0.06% )
 OLD  14,818,995 instructions # 1.16 insns per cycle ( +- 0.03% )
 NEW  14,696,974 instructions # 1.16 insns per cycle ( +- 0.03% )

While the numbers did fluctuate between runs, the new code was
consistently faster.
lib/overload.pm