Commit 1c7c71771b for perl

commit 1c7c71771be081ca1187550fe13361277ef2a7a1
Author: James E Keenan <jamesekeenan@yahoo.com>
Date:   Sat Oct 10 19:32:44 2026 -0400

    Avoid uninitialized value warning

diff --git a/t/porting/test_testlist.t b/t/porting/test_testlist.t
index 9c0757bd5e..1cb1879d5c 100644
--- a/t/porting/test_testlist.t
+++ b/t/porting/test_testlist.t
@@ -142,7 +142,7 @@ sub test_via_harness {
     my @output = `$THISPERL t/harness @these_tests`;
     for my $l (@output) {
         chomp $l;
-        my $root = (split /\s+/, $l)[0];
+        my $root = (split /\s+/, $l)[0] // '';
         next unless $root =~ m/\.t$/;
         ok($test_lookup->{$root},
             "$test_lookup->{$root} was tested via t/harness");