Commit | Line | Data |
79072805 |
1 | #include "INTERN.h" |
2 | #include "perl.h" |
3 | |
4 | main(argc, argv, env) |
5 | int argc; |
6 | char **argv; |
7 | char **env; |
8 | { |
9 | int exitstatus; |
93a17b20 |
10 | PerlInterpreter *my_perl; |
79072805 |
11 | |
12 | my_perl = perl_alloc(); |
13 | if (!my_perl) |
14 | exit(1); |
15 | perl_construct( my_perl ); |
16 | |
17 | exitstatus = perl_parse( my_perl, argc, argv, env ); |
18 | if (exitstatus) |
19 | exit( exitstatus ); |
20 | |
21 | exitstatus = perl_run( my_perl ); |
22 | |
23 | perl_destruct( my_perl ); |
24 | perl_free( my_perl ); |
25 | |
26 | exit( exitstatus ); |
27 | } |