CPerlObj *pPerl;
-#undef PERL_SYS_INIT
-#define PERL_SYS_INIT(a, c)
-
int
main(int argc, char **argv, char **env)
{
char *ptr;
GetModuleFileName(NULL, szModuleName, sizeof(szModuleName));
- (void)GetFullPathName(szModuleName, sizeof(szModuleName),
- szModuleName, &ptr);
+ (void)win32_longpath(szModuleName);
argv[0] = szModuleName;
#endif
+ PERL_SYS_INIT(&argc,&argv);
+
if (!host.PerlCreate())
exit(exitstatus);
char *ptr;
GetModuleFileName(NULL, szModuleName, sizeof(szModuleName));
- (void)GetFullPathName(szModuleName, sizeof(szModuleName),
- szModuleName, &ptr);
+ (void)win32_longpath(szModuleName);
argv[0] = szModuleName;
#endif
return RunPerl(argc, argv, env, (void*)0);