diff options
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 34 |
1 files changed, 32 insertions, 2 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index ba74c4d4f9..2c1e0b62c8 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -2,24 +2,53 @@ * "The Road goes ever on and on, down from the door where it began." */ +#ifdef __cplusplus +extern "C" { +#endif + #include "EXTERN.h" #include "perl.h" +#ifdef __cplusplus +} +# define EXTERN_C extern "C" +#else +# define EXTERN_C extern +#endif + static void xs_init _((void)); static PerlInterpreter *my_perl; int +#ifndef CAN_PROTOTYPE main(argc, argv, env) int argc; char **argv; char **env; +#else /* def(CAN_PROTOTYPE) */ +main(int argc, char **argv, char **env) +#endif /* def(CAN_PROTOTYPE) */ { int exitstatus; +#ifdef OS2 + _response(&argc, &argv); + _wildcard(&argc, &argv); +#endif + #ifdef VMS getredirection(&argc,&argv); #endif +#if defined(HAS_SETLOCALE) && defined(LC_CTYPE) + if (setlocale(LC_CTYPE, "") == NULL) { + fprintf(stderr, + "setlocale(LC_CTYPE, \"\") failed (LC_CTYPE = \"%s\").\n", + getenv("LC_CTYPE")); + exit(1); + } +#endif + if (!do_undump) { my_perl = perl_alloc(); if (!my_perl) @@ -27,7 +56,7 @@ char **env; perl_construct( my_perl ); } - exitstatus = perl_parse( my_perl, xs_init, argc, argv, env ); + exitstatus = perl_parse( my_perl, xs_init, argc, argv, NULL ); if (exitstatus) exit( exitstatus ); @@ -41,8 +70,9 @@ char **env; /* Register any extra external extensions */ +/* Do not delete this line--writemain depends on it */ + static void xs_init() { - /* Do not delete this line--writemain depends on it */ } |