X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/90303eefab11f53890ba7378a38c90ca58b20072..d24e3eb1402c1294265f99342e2ec0ecfd0f5d34:/t/perf/benchmarks

diff --git a/t/perf/benchmarks b/t/perf/benchmarks
index 6dfe442..6386f47 100644
--- a/t/perf/benchmarks
+++ b/t/perf/benchmarks
@@ -694,6 +694,19 @@
         code    => '($x, $y) = (1, 2)',
     },
 
+    'expr::aassign::lex_rv' => {
+        desc    => 'lexical ($ref1, $ref2) = ($ref3, $ref4)',
+        setup   => 'my ($r1, $r2, $r3, $r4);
+                    ($r1, $r2) = (($r3, $r4) = ([],  []));',
+        code    => '($r1, $r2) = ($r3, $r4)',
+    },
+
+    'expr::aassign::lex_rv1' => {
+        desc    => 'lexical ($ref1, $ref2) = ($ref3, $ref4) where ref1,2 are freed',
+        setup   => 'my ($r1, $r2);',
+        code    => '($r1, $r2) = ([], []);',
+    },
+
     # array assign of strings
 
     'expr::aassign::la_3s' => {
@@ -891,6 +904,16 @@
         setup   => 'my $x = 1;',
         code    => '$x = "abc"',
     },
+    'expr::sassign::lex_rv' => {
+        desc    => 'lexical $ref1 = $ref2;',
+        setup   => 'my $r1 = []; my $r = $r1;',
+        code    => '$r = $r1;',
+    },
+    'expr::sassign::lex_rv1' => {
+        desc    => 'lexical $ref1 = $ref2; where $$ref1 gets freed',
+        setup   => 'my $r1 = []; my $r',
+        code    => '$r = []; $r = $r1;',
+    },