This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[win32] add file: to installhtml URLs
[perl5.git] / win32 / runperl.c
index 6f84c60..9544607 100644 (file)
@@ -1,4 +1,19 @@
 /* Say NO to CPP! Hallelujah! */
+#ifdef __GNUC__
+/*
+ * GNU C does not do __declspec()
+ */
+#define __declspec(foo) 
+
+/* Mingw32 defaults to globing command line 
+ * This is inconsistent with other Win32 ports and 
+ * seems to cause trouble with passing -DXSVERSION=\"1.6\" 
+ * So we turn it off like this:
+ */
+int _CRT_glob = 0;
+
+#endif
+
 
 __declspec(dllimport) int RunPerl(int argc, char **argv, char **env, void *ios);