win32/runperl.c

   1 /* Say NO to CPP! Hallelujah! */
   2 #ifdef __GNUC__
   3 /*
   4  * GNU C does not do __declspec()
   5  */
   6 #define __declspec(foo)
   7
   8 /* Mingw32 defaults to globing command line
   9  * This is inconsistent with other Win32 ports and
  10  * seems to cause trouble with passing -DXSVERSION=\"1.6\"
  11  * So we turn it off like this:
  12  */
  13 int _CRT_glob = 0;
  14
  15 #endif
  16
  17
  18 __declspec(dllimport) int RunPerl(int argc, char **argv, char **env, void *ios);
  19
  20 int
  21 main(int argc, char **argv, char **env)
  22 {
  23     return RunPerl(argc, argv, env, (void*)0);
  24 }