This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix a benchmarks sprintf entry
authorDavid Mitchell <davem@iabyn.com>
Mon, 14 Aug 2017 15:46:01 +0000 (16:46 +0100)
committerDavid Mitchell <davem@iabyn.com>
Tue, 31 Oct 2017 15:31:26 +0000 (15:31 +0000)
an sprintf entry in t/perf/benchmarks was missing two %s's due to an
earlier cut+paste error. Also, it was being constant folded, so
use vars rather literals for the arguments.

t/perf/benchmarks

index 423230a..0bebf54 100644 (file)
         setup   => 'my $s; my $a1 = "abcd";',
         code    => '$s = sprintf "foo=%s", $a1',
     },
-    'func::sprintf::mixed_utf8_s' => {
+    'func::sprintf::mixed_utf8_sss' => {
         desc    => 'foo=%s bar=%s baz=%s',
-        setup   => 'my $s;',
-        code    => '$s = sprintf "foo=%s", "ab\x{100}cd", "efg", "h\x{101}ij"',
+        setup   => 'my $s;my $a = "ab\x{100}cd"; my $b = "efg"; my $c = "h\x{101}ij"',
+        code    => '$s = sprintf "foo=%s bar=%s baz=%s", $a, $b, $c',
     },
 
     'func::subst::bool' => {