From d338f2ce7b2ea9e41a69a81d7a2cb15c46668f5e Mon Sep 17 00:00:00 2001
From: James E Keenan <jkeenan@cpan.org>
Date: Mon, 27 Oct 2025 18:25:19 -0400
Subject: [PATCH] TODO tests for two segfaults

As described in GH #15654; code reduction by Hugo, prod to write TODO
tests from zb226.

Remove superfluous whitespace
---
 t/run/todo.t | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/t/run/todo.t b/t/run/todo.t
index c9e1da97fc47..8bdb72bf0207 100644
--- a/t/run/todo.t
+++ b/t/run/todo.t
@@ -228,6 +228,19 @@ TODO: {
     is($results, "oooo\noooo\noooo\noooo", 'Hashref element reference in @_ disappeared; GH 13307');
 }
 
+TODO: {
+    local $::TODO = "GH 15654";
+    my $results = fresh_perl(<<~'EOF', {});
+        %: = *: = *:::::: = *x; *:::: = *::;
+        EOF
+    is($?, 0, 'perl exited normally; [GH 15654]');
+
+    $results = fresh_perl(<<~'EOF', {});
+        %y = *y = *:::::: = *x; *:::: = *::;
+        EOF
+    is($?, 0, 'perl exited normally; [GH 15654]');
+}
+
 TODO: {
     local $::TODO = "GH 16008";
     my $results = fresh_perl(<<~'EOF', {} );