X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/77b8b9aded596134eb5091b72ad4d9cf361a7c94..fa1e92c44be6a2be80c5ca0ecc8a04bc172c3497:/t/op/sub_lval.t?ds=sidebyside

diff --git a/t/op/sub_lval.t b/t/op/sub_lval.t
index bb2794c..a2b3c22 100644
--- a/t/op/sub_lval.t
+++ b/t/op/sub_lval.t
@@ -500,10 +500,11 @@ is($@, "", "element of tied array");
 
 is ($Tie_Array::val[0], "value");
 
-TODO: {
-    local $TODO = 'test explicit return of lval expr';
 
-    # subs are corrupted copies from tests 1-~18
+# Test explicit return of lvalue expression
+{
+    # subs are copies from tests 1-~18 with an explicit return added.
+    # They used not to work, which is why they are ‘badly’ named.
     sub bad_get_lex : lvalue { return $in };
     sub bad_get_st  : lvalue { return $blah }