From 17565ddb77715b86d62f60ad9d694a05bd5babba Mon Sep 17 00:00:00 2001 From: Vadim Konovalov Date: Wed, 3 May 2006 10:10:59 +0400 Subject: Re: Smoke [5.9.4] 28069 FAIL(M) MSWin32 WinXP/.Net SP2 (x86/2 cpu) Message-ID: <44581133.8080100@vkonovalov.ru> p4raw-id: //depot/perl@28072 --- win32/perlmain.c | 40 ---------------------------------------- win32/perlmaince.c | 40 ++++++++++++++++++++++++++++++++++++++++ 2 files changed, 40 insertions(+), 40 deletions(-) delete mode 100644 win32/perlmain.c create mode 100644 win32/perlmaince.c (limited to 'win32') diff --git a/win32/perlmain.c b/win32/perlmain.c deleted file mode 100644 index ced3b86cc0..0000000000 --- a/win32/perlmain.c +++ /dev/null @@ -1,40 +0,0 @@ -/* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */ - -#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 - -/* Called from w32console/wmain.c */ - -extern int w32console_usefunctionkeys; - -int -main(int argc, char **argv, char **env) -{ - int res; - - if(argc == 1) - XCEShowMessageA("Starting perl with no args is currently\r\n" - "not useful on Windows CE"); - - w32console_usefunctionkeys = 0; /* this allows backspace key to work */ - - res = RunPerl(argc, argv, env); - - if(res != 0) - XCEShowMessageA("Exitcode: %d", res); - - return res; -} - - diff --git a/win32/perlmaince.c b/win32/perlmaince.c new file mode 100644 index 0000000000..ced3b86cc0 --- /dev/null +++ b/win32/perlmaince.c @@ -0,0 +1,40 @@ +/* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */ + +#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 + +/* Called from w32console/wmain.c */ + +extern int w32console_usefunctionkeys; + +int +main(int argc, char **argv, char **env) +{ + int res; + + if(argc == 1) + XCEShowMessageA("Starting perl with no args is currently\r\n" + "not useful on Windows CE"); + + w32console_usefunctionkeys = 0; /* this allows backspace key to work */ + + res = RunPerl(argc, argv, env); + + if(res != 0) + XCEShowMessageA("Exitcode: %d", res); + + return res; +} + + -- cgit v1.2.1