# HG changeset patch
# User Bram Moolenaar <bram@vim.org>
# Date 1279791256 -7200
# Node ID a42d19b78c937b18b92626215d2f537053025cec
# Parent  e95106e347f61fa039e65bee60db3c31326b2377
Fix building with Perl on Windows with MingW. (James Vega)

diff --git a/src/if_perl.xs b/src/if_perl.xs
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -89,7 +89,7 @@ EXTERN_C void boot_DynaLoader __ARGS((pT
 #if defined(DYNAMIC_PERL) || defined(PROTO)
 
 #ifndef DYNAMIC_PERL /* just generating prototypes */
-#ifdef _MSWIN
+#ifdef WIN3264
 typedef int HANDLE;
 #endif
 typedef int XSINIT_t;
@@ -97,7 +97,7 @@ typedef int XSUBADDR_t;
 typedef int perl_key;
 #endif
 
-#ifndef _MSWIN
+#ifndef WIN3264
 #include <dlfcn.h>
 #define HANDLE void*
 #define PERL_PROC void*