| | 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 | |
https://perl5.git.perl.org / perl5.git / blame_incremental