[perl5.git] / wince / 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
e1caacb4 JH	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:
	10	*/
	11	int _CRT_glob = 0;
	12
	13	#endif
	14
	15	int
	16	main(int argc, char argv, char env)
	17	{
	18	return RunPerl(argc, argv, env);
	19	}
	20
	21