This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix various win32 code blemishes:
[perl5.git] / win32 / runperl.c
CommitLineData
0a753a76
PP
1#include <stdio.h>
2#include <win32io.h>
3
137443ea
PP
4#ifndef _DLL
5extern WIN32_IOSUBSYSTEM win32stdio;
6#endif
7
0a753a76
PP
8extern int RunPerl(int argc, char **argv, char **env, void *iosubsystem);
9
137443ea 10int
0a753a76
PP
11main(int argc, char **argv, char **env)
12{
137443ea
PP
13#ifdef _DLL
14 return (RunPerl(argc, argv, env, NULL));
15#else
16 return (RunPerl(argc, argv, env, &win32stdio));
17#endif
0a753a76 18}