From 5462b17e4274b0f16b62d347717697c9e6ee193c Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Mon, 1 May 2023 14:48:20 +1000
Subject: TODO test that sub return values are modifiable

Regression test for #21044
---
 t/op/sub.t | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 't')

diff --git a/t/op/sub.t b/t/op/sub.t
index b2839c6a40..0eae1d50de 100644
--- a/t/op/sub.t
+++ b/t/op/sub.t
@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('../lib');
 }
 
-plan(tests => 64);
+plan(tests => 65);
 
 sub empty_sub {}
 
@@ -443,3 +443,10 @@ fresh_perl_like(
     {},
     "#6998 freeing array used as args to sub",
 );
+
+# github #21044
+{
+    local $TODO = "sub return values not modifiable";
+ok( eval { $_->{x} = 1 for sub { undef }->(); 1 }, "check sub return values are modifiable")
+  or diag $@;
+}
-- 
cgit v1.2.1