Better optimise my/local @a = split()

[perl5.git] / t / perf / benchmarks

diff --git a/t/perf/benchmarks b/t/perf/benchmarks
index 3daa27d..f02a06a 100644 (file)
--- a/t/perf/benchmarks
+++ b/t/perf/benchmarks
@@ -983,12 +983,16 @@
         setup   => 'my @a; my $s = "abc:def";',
         code    => '@a = split /:/, $s, 2;',
     },
-
     'func::split::myarray' => {
         desc    => 'split into a lexical array declared in the assign',
         setup   => 'my $s = "abc:def";',
         code    => 'my @a = split /:/, $s, 2;',
     },
+    'func::split::arrayexpr' => {
+        desc    => 'split into an @{$expr} ',
+        setup   => 'my $s = "abc:def"; my $r = []',
+        code    => '@$r = split /:/, $s, 2;',
+    },
 
 
     'loop::block' => {