[p5sagit/p5-mst-13.2.git] / win32 / runperl.c

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

#ifdef __GNUC__
/*
 * GNU C does not do __declspec()
 */
#define __declspec(foo) 

/* 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	1	#include "EXTERN.h"
	2	#include "perl.h"
	3
a835ef8a	4	#ifdef __GNUC__
5b0d9cbe	5	/*
	6	* GNU C does not do __declspec()
	7	*/
a835ef8a	8	#define __declspec(foo)
5b0d9cbe	9
	10	/* Mingw32 defaults to globing command line
	11	* This is inconsistent with other Win32 ports and
	12	* seems to cause trouble with passing -DXSVERSION=\"1.6\"
	13	* So we turn it off like this:
	14	*/
	15	int _CRT_glob = 0;
	16
a835ef8a	17	#endif
0a753a76	18
137443ea	19	int
0a753a76	20	main(int argc, char argv, char env)
0a753a76	21	{
0cb96387	22	return RunPerl(argc, argv, env);
0a753a76	23	}
76e3520e	24
0cb96387	25