Test case for #10433/#10424.
[p5sagit/p5-mst-13.2.git] / miniperlmain.c
CommitLineData
a0d0e21e 1/*
2 * "The Road goes ever on and on, down from the door where it began."
3 */
4
60e4866f 5#ifdef OEMVS
9133bbab 6#ifdef MYMALLOC
7/* sbrk is limited to first heap segement so make it big */
8#pragma runopts(HEAP(8M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
9#else
10#pragma runopts(HEAP(2M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
11#endif
60e4866f 12#endif
13
4633a7c4 14
ecfc5424 15#include "EXTERN.h"
864dbfa3 16#define PERL_IN_MINIPERLMAIN_C
2304df62 17#include "perl.h"
18
864dbfa3 19static void xs_init (pTHX);
a0d0e21e 20static PerlInterpreter *my_perl;
21
61ae2fbf 22#if defined (__MINT__) || defined (atarist)
23/* The Atari operating system doesn't have a dynamic stack. The
24 stack size is determined from this value. */
25long _stksize = 64 * 1024;
26#endif
27
c07a80fd 28int
dc6439a4 29main(int argc, char **argv, char **env)
2304df62 30{
31 int exitstatus;
2304df62 32
22239a37 33#ifdef PERL_GLOBAL_STRUCT
34#define PERLVAR(var,type) /**/
51371543 35#define PERLVARA(var,type) /**/
533c011a 36#define PERLVARI(var,type,init) PL_Vars.var = init;
37#define PERLVARIC(var,type,init) PL_Vars.var = init;
22239a37 38#include "perlvars.h"
39#undef PERLVAR
51371543 40#undef PERLVARA
22239a37 41#undef PERLVARI
0f3f18a6 42#undef PERLVARIC
22239a37 43#endif
44
ed344e4f 45 PERL_SYS_INIT3(&argc,&argv,&env);
4633a7c4 46
3280af22 47 if (!PL_do_undump) {
a0d0e21e 48 my_perl = perl_alloc();
49 if (!my_perl)
50 exit(1);
642f9deb 51 perl_construct(my_perl);
3280af22 52 PL_perl_destruct_level = 0;
a0d0e21e 53 }
2304df62 54
642f9deb 55 exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
b5dd7652 56 if (!exitstatus) {
642f9deb 57 exitstatus = perl_run(my_perl);
b5dd7652 58 }
2304df62 59
642f9deb 60 perl_destruct(my_perl);
61 perl_free(my_perl);
2304df62 62
a91be337 63 PERL_SYS_TERM();
64
642f9deb 65 exit(exitstatus);
4e35701f 66 return exitstatus;
2304df62 67}
68
69/* Register any extra external extensions */
70
4633a7c4 71/* Do not delete this line--writemain depends on it */
72
a0d0e21e 73static void
864dbfa3 74xs_init(pTHX)
2304df62 75{
642f9deb 76 dXSUB_SYS;
2304df62 77}