Commit f41225ab77 for perl

commit f41225ab777318f60504d95edc662af46828ebae
Author: James E Keenan <jamesekeenan@yahoo.com>
Date:   Sat Oct 10 08:31:11 2026 -0400

    Skip two instances of 'test_via_runtests'

    Experimentation showed that while the test suite ran as expected when invoked
    with 'make test', 'make test_harness', etc., we experienced indefinite hangs
    during 't/porting/test_testlist.t' whenever we called the following:

        $ make test_porting

        # what's "inside" 'make test_porting':
        $ TEST_ARGS='porting/*.t lib/diagnostics.t' TESTFILE=harness ./runtests choose

        $ TEST_ARGS='porting/test_testlist.t' TESTFILE=TEST ./runtests choose

        $ TEST_ARGS='porting/*.t' TESTFILE=TEST ./runtests choose

    Examination of the output of 'ps auxwww | grep testlist' showed that
    additional processes were being spawned.

    But the following did *not* hang:

        $ TESTFILE=harness ./runtests choose

        $ TESTFILE=TEST ./runtests choose

    It is not clear why passing "TEST_ARGS=[something which expands to include
    porting/test_testlist.t]" to "./runtests choose" behaves in this way.  But as
    that is not a way most users would trigger these tests, we can defer further
    investigation for now via 'todo_skip'.

diff --git a/t/porting/test_testlist.t b/t/porting/test_testlist.t
index ddc31efffa..9c0757bd5e 100644
--- a/t/porting/test_testlist.t
+++ b/t/porting/test_testlist.t
@@ -24,15 +24,18 @@ sub wanted { $_ =~ m{\.t$} and push @raw_ppport_tests, (
 find(\&wanted, ( './dist/Devel-PPPort/t' ));
 my @ppport_tests = sort @raw_ppport_tests;

-
 test_via_TEST( qw| op/args.t op/bool.t ../lib/vars.t | );
 test_via_TEST('base/cond.t', @ppport_tests);

 test_via_harness( qw| op/args.t op/bool.t ../lib/vars.t | );
 test_via_harness('base/cond.t', @ppport_tests);

-test_via_runtests( qw| op/args.t op/bool.t ../lib/vars.t | );
-test_via_runtests('base/cond.t', @ppport_tests);
+TODO: {
+    todo_skip("test_via_runtests() causes file to hang during 'make test_porting'", 2);
+
+    test_via_runtests( qw| op/args.t op/bool.t ../lib/vars.t | );
+    test_via_runtests('base/cond.t', @ppport_tests);
+}

 my (%th, %tt, %all);
 $ENV{PERL_TORTURE_TEST} = 1;