From 4517ca24c337fd13c848d1ada334f24f3f0da435 Mon Sep 17 00:00:00 2001
From: IoIxD <alphaproject217@gmail.com>
Date: Fri, 17 Jul 2026 17:53:53 -0700
Subject: [PATCH] fix perl cross compiling

---
 configure | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/configure b/configure
index 9ce2cfa..f24e3ab 100755
--- a/configure
+++ b/configure
@@ -101,13 +101,20 @@ sub def_platform {
         param_set("x11", 1);
     }
     if($target eq "Windows") {
-        use Win32;
-        my ( $osvername, $major, $minor, $id ) = Win32::GetOSVersion();
+        if ($^O eq "Win32")
+        {
+            require Win32;
+            Win32->import();
+            my ( $osvername, $major, $minor, $id ) = Win32::GetOSVersion();
 
-        if($major >= 10) {
-            param_set("directwrite", 1);
+            if($major >= 10) {
+                param_set("directwrite", 1);
+            } else {
+                param_set("directwrite", 0);
+            }
         } else {
-            param_set("directwrite", 0);
+            # assume cross compiling
+            param_set("directwrite", 1);
         }
     } else {
         param_set("directwrite", 0);