win32/runperl.c

   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 }