fix: LWP::UserAgent support - socket overhaul, HTML parser, UTF-8 encoding

dev/import-perl5/config.yaml

@@ -473,6 +473,10 @@ imports:
     target: src/main/perl/lib/IO/Socket
     type: directory
 
+  # IO::Socket::IP - IPv4/IPv6 transparent socket interface (required by HTTP::Daemon)
+  - source: perl5/cpan/IO-Socket-IP/lib/IO/Socket/IP.pm
+    target: src/main/perl/lib/IO/Socket/IP.pm
+
   # IO::Select - OO interface to select() (required by TAP::Parser::Multiplexer)
   - source: perl5/dist/IO/lib/IO/Select.pm
     target: src/main/perl/lib/IO/Select.pm

dev/tools/perl_test_runner.pl

@@ -444,8 +444,14 @@ sub parse_tap_output {
         }
 
         if ($line =~ /^not ok\s+\d+/) {
-            $not_ok_count++;
             $actual_tests_run++;
+            if ($line =~ /#\s*TODO\b/i) {
+                # "not ok ... # TODO" = expected failure, counts as OK in TAP
+                $ok_count++;
+                $todo_count++;
+            } else {
+                $not_ok_count++;
+            }
             next;
         }
 

src/main/java/org/perlonjava/app/scriptengine/PerlLanguageProvider.java

@@ -372,8 +372,8 @@ private static RuntimeList executeCode(RuntimeCode runtimeCode, EmitterContext c
         } catch (Throwable t) {
             if (isMainProgram) {
                 runEndBlocks(false);  // Don't reset $? on exception path
+                RuntimeIO.closeAllHandles();
             }
-            RuntimeIO.closeAllHandles();
             if (t instanceof RuntimeException runtimeException) {
                 throw runtimeException;
             }

src/main/java/org/perlonjava/backend/jvm/EmitOperator.java

@@ -1638,6 +1638,17 @@ private static boolean resultIsList(OperatorNode node) {
                     return true;
                 }
             }
+            // Built-in functions that return lists: \stat(...), \localtime, etc.
+            // In Perl, \func distributes the \ over the list elements
+            if ("stat".equals(op) || "lstat".equals(op) ||
+                    "localtime".equals(op) || "gmtime".equals(op) ||
+                    "caller".equals(op) || "each".equals(op) ||
+                    "getpwnam".equals(op) || "getpwuid".equals(op) || "getpwent".equals(op) ||
+                    "getgrnam".equals(op) || "getgrgid".equals(op) || "getgrent".equals(op) ||
+                    "sort".equals(op) || "reverse".equals(op) ||
+                    "keys".equals(op) || "values".equals(op)) {
+                return true;
+            }
         }
 
         // Check for slice operations: %x{...}, @x{...}, @x[...]
@@ -1650,6 +1661,11 @@ private static boolean resultIsList(OperatorNode node) {
                 }
             }
 
+            // Function calls with parens: \foo() distributes the \ over the returned list
+            if ("(".equals(binOp.operator)) {
+                return true;
+            }
+
             // Check if it is an apply `->()`
             return binOp.operator.equals("->") && binOp.right instanceof ListNode;
         }

src/main/java/org/perlonjava/core/Configuration.java

@@ -33,7 +33,7 @@ public final class Configuration {
      * Automatically populated by Gradle/Maven during build.
      * DO NOT EDIT MANUALLY - this value is replaced at build time.
      */
-    public static final String gitCommitId = "dc22ca34e";
+    public static final String gitCommitId = "f932fb45f";
 
     /**
      * Git commit date of the build (ISO format: YYYY-MM-DD).

src/main/java/org/perlonjava/frontend/analysis/ConstantFoldingVisitor.java

@@ -363,6 +363,17 @@ public void visit(OperatorNode node) {
             return;
         }
 
+        // Don't fold identifiers under the & sigil operator.
+        // &Name refers to the subroutine itself (e.g., exists(&Errno::EINVAL), \&sub),
+        // not a call. Folding would replace the name with its constant value, breaking
+        // exists/defined checks. Calls with parens (&Name()) are handled separately
+        // in visit(BinaryOperatorNode) via the "(" operator.
+        if ("&".equals(node.operator)) {
+            result = node;
+            isConstant = false;
+            return;
+        }
+
         Node foldedOperand = foldChild(node.operand);
 
         // Handle unary operators on constants