Final move from meta-3.0 to meta-3.5
[p5sagit/p5-mst-13.2.git] / win32 / runperl.c
1 #include "EXTERN.h"
2 #include "perl.h"
3
4 #ifdef __GNUC__
5
6 /* Mingw32 defaults to globing command line 
7  * This is inconsistent with other Win32 ports and 
8  * seems to cause trouble with passing -DXSVERSION=\"1.6\" 
9  * So we turn it off like this, but only when compiling
10  * perlmain.c: perlmainst.c is linked into the same executable
11  * as win32.c, which also does this, so we mustn't do it twice
12  * otherwise we get a multiple definition error.
13  */
14 #ifndef PERLDLL
15 int _CRT_glob = 0;
16 #endif
17
18 #endif
19
20 int
21 main(int argc, char **argv, char **env)
22 {
23     return RunPerl(argc, argv, env);
24 }
25
26