Make sure to rpeep() the body of catch {} blocks

1 files changed, 12 insertions, 0 deletions

diff --git a/t/perf/opcount.t b/t/perf/opcount.t
index 2d3f196174..372c47f3d6 100644
--- a/t/perf/opcount.t
+++ b/t/perf/opcount.t
@@ -675,6 +675,18 @@ test_opcount(0, "multiconcat: local assign",
                 });
 
 {
+    use feature 'try';
+    no warnings 'experimental::try';
+
+    test_opcount(0, "try/catch: catch block is optimized",
+                    sub { my @a; try {} catch($e) { $a[0] } },
+                    {
+                        aelemfast_lex => 1,
+                        aelem         => 0,
+                    });
+}
+
+{
     use feature 'defer';
     no warnings 'experimental::defer';