Commit 8a68e01e20 for perl

commit 8a68e01e20d1ded3a882d17554d0bbe9d90613c6
Author: James E Keenan <jamesekeenan@yahoo.com>
Date:   Sun Oct 18 07:18:18 2026 -0400

    t/run/todo.t: Un-TODO test for capture buffers

    Test in block for GH 16250 was corrected by 77af3ea6c1 (Oct 15 2026).
    Move to t/re/pat.t.

diff --git a/t/re/pat.t b/t/re/pat.t
index f9efb3334a..dd77e7b8d9 100644
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -28,7 +28,7 @@ skip_all_without_unicode_tables();
 my $has_locales = locales_enabled('LC_CTYPE');
 my $utf8_locale = find_utf8_ctype_locale();

-plan tests => 1314;  # Update this when adding/deleting tests.
+plan tests => 1315;  # Update this when adding/deleting tests.

 run_tests() unless caller;

@@ -2747,6 +2747,15 @@ PROG
         PROG
     }

+    {   # GH 16250
+        fresh_perl_is(<<~'PROG', "undef:de567\nundef:de567", {}, "content in capture buffer");
+        "abcde5678" =~ / b (*pla:.*(*plb:(*plb:(.{4}))? (.{5})).$)/x;
+        print $1 // "undef", ":", $2 // "undef", "\n";
+        "abcde5678" =~ / b .* (*plb:(*plb:(.{4}))? (.{5}) ) .$ /x;
+        print $1 // "undef", ":", $2 // "undef", "\n";
+        PROG
+    }
+
 } # End of sub run_tests

 1;
diff --git a/t/run/todo.t b/t/run/todo.t
index 9e6d1d616b..8336061899 100644
--- a/t/run/todo.t
+++ b/t/run/todo.t
@@ -254,17 +254,6 @@ TODO: {
            "truncate did not warn about bad file descriptors [GH 16008]";
 }

-TODO: {
-    local $TODO = "GH 16250";
-    fresh_perl_is(<<~'EOF',
-        "abcde5678" =~ / b (*pla:.*(*plb:(*plb:(.{4}))? (.{5})).$)/x;
-        print $1 // "undef", ":", $2 // "undef", "\n";
-        "abcde5678" =~ / b .* (*plb:(*plb:(.{4}))? (.{5}) ) .$ /x;
-        print $1 // "undef", ":", $2 // "undef", "\n";
-        EOF
-    "undef:de567\nundef:de567", { eval $switches }, "GH 16250");
-}
-
 TODO: {
     local $::TODO = 'GH 16364';