<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<br>
This bug is not relevant in current stable release of debian. <br>
Maybe something wash changed upstream. <br>
<br>
<br>
<br>
Upstream but still open: <br>
<br>
<a class="moz-txt-link-freetext" href="https://rt.perl.org/Public/Bug/Display.html?id=129802">https://rt.perl.org/Public/Bug/Display.html?id=129802</a><br>
<br>
<br>
<br>
Current test: <br>
<br>
<br>
root@gamma:~# cat /etc/issue<br>
Debian GNU/Linux 10 \n \l<br>
<br>
root@gamma:~# perl --version <br>
<br>
This is perl 5, version 28, subversion 1 (v5.28.1) built for
i686-linux-gnu-thread-multi-64int<br>
(with 61 registered patches, see perl -V for more detail)<br>
<br>
Copyright 1987-2018, Larry Wall<br>
<br>
Perl may be copied only under the terms of either the Artistic
License or the<br>
GNU General Public License, which may be found in the Perl 5 source
kit.<br>
<br>
Complete documentation for Perl, including FAQ lists, should be
found on<br>
this system using "man perl" or "perldoc perl". If you have access
to the<br>
Internet, point your browser at <a class="moz-txt-link-freetext" href="http://www.perl.org/">http://www.perl.org/</a>, the Perl Home
Page.<br>
<br>
root@gamma:~# cat pb<br>
#!/usr/bin/perl <br>
<br>
# <a class="moz-txt-link-freetext" href="https://rt.perl.org/Public/Bug/Display.html?id=129802">https://rt.perl.org/Public/Bug/Display.html?id=129802</a><br>
<br>
use strict;<br>
use warnings;<br>
use Benchmark 'cmpthese';<br>
<br>
my $s = "A"x (2**16 + 5);<br>
my $cat = 'B' . $s . 'B';<br>
my $spr = sprintf "B%sB", $s;<br>
my $ca2 = "$cat "; chop $ca2; <br>
<br>
cmpthese(-1, { <br>
"assign" => sub {my $i=0; $s =~ /./ while $i++ < 100 },<br>
"concat" => sub {my $i=0; $cat =~ /./ while $i++ < 100 },<br>
"sprintf" => sub {my $i=0; $spr =~ /./ while $i++ < 100 },<br>
"okeycat" => sub {my $i=0; $ca2 =~ /./ while $i++ < 100 },<br>
});<br>
<br>
root@gamma:~# ./pb<br>
Rate concat assign sprintf okeycat<br>
concat 30075/s -- -2% -2% -4%<br>
assign 30632/s 2% -- 0% -2%<br>
sprintf 30632/s 2% 0% -- -2%<br>
okeycat 31210/s 4% 2% 2% --<br>
root@gamma:~# <br>
<br>
<br>
</body>
</html>