[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:
 */
int _CRT_glob = 0;

#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\"
	9	* So we turn it off like this:
	10	*/
	11	int _CRT_glob = 0;
	12
a835ef8a	13	#endif
0a753a76	14
137443ea	15	int
0a753a76	16	main(int argc, char argv, char env)
0a753a76	17	{
0cb96387	18	return RunPerl(argc, argv, env);
0a753a76	19	}
76e3520e	20
0cb96387	21