xref: /openbsd-src/gnu/usr.bin/perl/win32/runperl.c (revision 62a742911104f98b9185b2c6b6007d9b1c36396c)
1 #include <stdio.h>
2 #include <win32io.h>
3 
4 #ifndef _DLL
5 extern WIN32_IOSUBSYSTEM win32stdio;
6 #endif
7 
8 extern int RunPerl(int argc, char **argv, char **env, void *iosubsystem);
9 
10 int
11 main(int argc, char **argv, char **env)
12 {
13 #ifdef _DLL
14     return (RunPerl(argc, argv, env, NULL));
15 #else
16     return (RunPerl(argc, argv, env, &win32stdio));
17 #endif
18 }
19