| … | |
… | |
| 1099 | perl_construct (staticperl); |
1099 | perl_construct (staticperl); |
| 1100 | |
1100 | |
| 1101 | PL_exit_flags |= PERL_EXIT_DESTRUCT_END; |
1101 | PL_exit_flags |= PERL_EXIT_DESTRUCT_END; |
| 1102 | |
1102 | |
| 1103 | exitstatus = perl_parse (staticperl, staticperl_xs_init, argc + 3, args, environ); |
1103 | exitstatus = perl_parse (staticperl, staticperl_xs_init, argc + 3, args, environ); |
| 1104 | free (args); |
|
|
| 1105 | if (!exitstatus) |
1104 | if (!exitstatus) |
| 1106 | perl_run (staticperl); |
1105 | perl_run (staticperl); |
| 1107 | |
1106 | |
| 1108 | exitstatus = perl_destruct (staticperl); |
1107 | exitstatus = perl_destruct (staticperl); |
| 1109 | perl_free (staticperl); |
1108 | perl_free (staticperl); |
| 1110 | PERL_SYS_TERM (); |
1109 | PERL_SYS_TERM (); |
|
|
1110 | /*free (args); no point doing it this late */ |
| 1111 | |
1111 | |
| 1112 | return exitstatus; |
1112 | return exitstatus; |
| 1113 | } |
1113 | } |
| 1114 | EOF |
1114 | EOF |
| 1115 | } elsif ($PERL) { |
1115 | } elsif ($PERL) { |
