X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fdl_win32.xs;h=6c094d22fd4f0054a8bcdec1a1947b63aaf66da4;hb=7bd379e81ea13d83ac434499c69ddde30e5c4259;hp=b69ad27c7b64a40e0a33f7ee14d02cfb748318a5;hpb=ff235dd6d6f5e19e11c9202d4a82fb8e5fbadadd;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/dl_win32.xs b/win32/dl_win32.xs
index b69ad27..6c094d2 100644
--- a/win32/dl_win32.xs
+++ b/win32/dl_win32.xs
@@ -119,7 +119,7 @@ dl_load_file(filename,flags=0)
 	RETVAL = PerlProc_DynaLoad(filename);
     }
     else
-	RETVAL = (void*) GetModuleHandle(NULL);
+	RETVAL = (void*) Win_GetModuleHandle(NULL);
     DLDEBUG(2,PerlIO_printf(Perl_debug_log," libref=%x\n", RETVAL));
     ST(0) = sv_newmortal() ;
     if (RETVAL == NULL)