Mercurial > repo

comparison perl-5.22.2/win32/perlmaince.c @ 8045:a16537d2fe07

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<xfix> tar xf perl-5.22.2.tar.gz # Ah, whatever, I\'m doing it anyway
author HackBot
date Sat, 14 May 2016 14:54:38 +0000
parents
children
comparison
equal deleted inserted replaced
8044:711c038a7dce 8045:a16537d2fe07
1 /* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */
2
3 #include "EXTERN.h"
4 #include "perl.h"
5
6 #ifdef __GNUC__
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 /* Called from w32console/wmain.c */
18
19 extern int w32console_usefunctionkeys;
20
21 int
22 main(int argc, char **argv, char **env)
23 {
24 int res;
25
26 if(argc == 1)
27 XCEShowMessageA("Starting perl with no args is currently\r\n"
28 "not useful on Windows CE");
29
30 w32console_usefunctionkeys = 0; /* this allows backspace key to work */
31
32 res = RunPerl(argc, argv, env);
33
34 if(res != 0)
35 XCEShowMessageA("Exitcode: %d", res);
36
37 return res;
38 }
39
40