/*

  COMPILE (VC6++):
  
  NOTE: Path in use for cmds:
    - Source:            F:\compile\perl-5.8.0
    - Perl Installation: c:\perl

  cl -c "-IF:\compile\perl-5.8.0\lib\CORE"   -nologo -Gf -W3 -MD -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_STRICT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX -MD -DNDEBUG -O1 "-IF:\compile\perl-5.8.0\lib\CORE" perlmain.c

  cl -nologo -Gf -nodefaultlib -release -libpath:"c:\perl\lib\CORE" -machine:x86 -o embperl -MD -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_STRICT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DPERL_MSVCRT_READFIX ./perlmain.obj F:\compile\perl-5.8.0\win32\perllib.obj F:\compile\perl-5.8.0\perlio.obj F:\compile\perl-5.8.0\av.obj F:\compile\perl-5.8.0\deb.obj F:\compile\perl-5.8.0\doio.obj F:\compile\perl-5.8.0\doop.obj F:\compile\perl-5.8.0\dump.obj F:\compile\perl-5.8.0\globals.obj F:\compile\perl-5.8.0\gv.obj F:\compile\perl-5.8.0\hv.obj F:\compile\perl-5.8.0\locale.obj F:\compile\perl-5.8.0\mg.obj F:\compile\perl-5.8.0\numeric.obj F:\compile\perl-5.8.0\op.obj F:\compile\perl-5.8.0\perl.obj F:\compile\perl-5.8.0\perlapi.obj F:\compile\perl-5.8.0\perly.obj F:\compile\perl-5.8.0\pp.obj F:\compile\perl-5.8.0\pp_ctl.obj F:\compile\perl-5.8.0\pp_hot.obj F:\compile\perl-5.8.0\win32\mini\pp_pack.obj F:\compile\perl-5.8.0\pp_sort.obj F:\compile\perl-5.8.0\pp_sys.obj F:\compile\perl-5.8.0\reentr.obj F:\compile\perl-5.8.0\regcomp.obj F:\compile\perl-5.8.0\regexec.obj F:\compile\perl-5.8.0\run.obj F:\compile\perl-5.8.0\scope.obj F:\compile\perl-5.8.0\sv.obj F:\compile\perl-5.8.0\taint.obj F:\compile\perl-5.8.0\toke.obj F:\compile\perl-5.8.0\universal.obj F:\compile\perl-5.8.0\utf8.obj F:\compile\perl-5.8.0\util.obj F:\compile\perl-5.8.0\xsutils.obj F:\compile\perl-5.8.0\ext\DynaLoader\DynaLoader.obj F:\compile\perl-5.8.0\win32\win32.obj F:\compile\perl-5.8.0\win32\win32sck.obj F:\compile\perl-5.8.0\win32\win32thread.obj oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib  comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib  netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib msvcrt.lib

*/

#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);
}