This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[asperl] Created new branch from win32@396, added AS patch#1
[perl5.git] / win32 / runperl.c
CommitLineData
390b85e7 1/* Say NO to CPP! Hallelujah! */
a835ef8a 2#ifdef __GNUC__
5b0d9cbe
NIS
3/*
4 * GNU C does not do __declspec()
5 */
a835ef8a 6#define __declspec(foo)
5b0d9cbe
NIS
7
8/* Mingw32 defaults to globing command line
9 * This is inconsistent with other Win32 ports and
10 * seems to cause trouble with passing -DXSVERSION=\"1.6\"
11 * So we turn it off like this:
12 */
13int _CRT_glob = 0;
14
a835ef8a 15#endif
0a753a76 16
5b0d9cbe 17
390b85e7 18__declspec(dllimport) int RunPerl(int argc, char **argv, char **env, void *ios);
0a753a76 19
137443ea 20int
0a753a76
PP
21main(int argc, char **argv, char **env)
22{
390b85e7 23 return RunPerl(argc, argv, env, (void*)0);
0a753a76 24}