Commit | Line | Data |
cb69f87a |
1 | /* Time-stamp: <01/08/01 20:58:19 keuchel@w2k> */ |
e1caacb4 |
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 | |
cb69f87a |
17 | /* Called from w32console/wmain.c */ |
e1caacb4 |
18 | |
19 | int |
20 | main(int argc, char **argv, char **env) |
21 | { |
22 | int res; |
23 | |
24 | if(argc == 1) |
25 | XCEShowMessageA("Starting perl with no args is currently\r\n" |
26 | "not useful on Windows CE"); |
27 | |
28 | res = RunPerl(argc, argv, env); |
29 | |
30 | if(res != 0) |
31 | XCEShowMessageA("Exitcode: %d", res); |
32 | |
33 | return res; |
34 | } |
35 | |
36 | |