[perl5.git] / win32 / runperl.c

#include "EXTERN.h"
#include "perl.h"

#ifdef __GNUC__

/* 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, but only when compiling
 * perlmain.c: perlmainst.c is linked into the same executable
 * as win32.c, which also does this, so we mustn't do it twice
 * otherwise we get a multiple definition error.
 */
#ifndef PERLDLL
int _CRT_glob = 0;
#endif

#endif

int
main(int argc, char **argv, char **env)
{
    return RunPerl(argc, argv, env);
}
Commit	Line	Data
76e3520e GS	1	#include "EXTERN.h"
	2	#include "perl.h"
	3
a835ef8a	4	#ifdef __GNUC__
5b0d9cbe NIS	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\"
ed2eab3f SH	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.
5b0d9cbe	13	*/
ed2eab3f	14	#ifndef PERLDLL
5b0d9cbe	15	int _CRT_glob = 0;
ed2eab3f	16	#endif
5b0d9cbe	17
a835ef8a	18	#endif
0a753a76	19
137443ea	20	int
0a753a76	21	main(int argc, char argv, char env)
0a753a76	22	{
0cb96387	23	return RunPerl(argc, argv, env);
0a753a76	24	}
76e3520e	25
0cb96387	26