Commit 0ef3bf9f1d for perl

commit 0ef3bf9f1daa24c275805163b6012b822d6a5e3e
Author: James E Keenan <jamesekeenan@yahoo.com>
Date:   Sat Oct 10 23:02:52 2026 -0400

    test_testlist.t:  Skip 4 tests on Win32

    We need to determine cause of test failures on that platform.

diff --git a/t/porting/test_testlist.t b/t/porting/test_testlist.t
index 1cb1879d5c..0fe3218b78 100644
--- a/t/porting/test_testlist.t
+++ b/t/porting/test_testlist.t
@@ -24,11 +24,14 @@ 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);
+TODO: {
+    todo_skip "MSWin32 problems", 4 if $^O eq "MSWin32";
+    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_harness( qw| op/args.t op/bool.t ../lib/vars.t | );
+    test_via_harness('base/cond.t', @ppport_tests);
+}

 TODO: {
     todo_skip("test_via_runtests() causes file to hang during 'make test_porting'", 2);