build: Call SetDllDirectory system API to help finding provided DLL l…

…ibraries on windows
glpi-project · May 17, 2024 · 26530f7 · 26530f7
1 parent a7c8fd2
commit 26530f7
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/Changes b/Changes
@@ -2,6 +2,9 @@ Revision history for GLPI agent
 
 1.9 not yet released
 
+packaging:
+* Fix: Call SetDllDirectory system API to help finding provided DLL libraries on windows
+
 1.8 Wed, 15 May 2024
 
 core:

diff --git a/contrib/windows/packaging/setup.pm b/contrib/windows/packaging/setup.pm
@@ -7,6 +7,7 @@ use parent qw(Exporter);
 
 use File::Spec;
 use Cwd qw(abs_path);
+use Win32::API;
 
 our @EXPORT = ('%setup');
 
@@ -20,4 +21,10 @@ our %setup = (
     libdir  => $basefolder.'/perl/agent',
 );
 
+my $apiSetDllDirectory = Win32::API->new(
+    'kernel32',
+    'BOOL SetDllDirectoryA(LPCSTR lpPathName)'
+);
+$apiSetDllDirectory->Call($basefolder.'/perl/bin');
+
 1;