tyler.durden/centreon-plugins
1
0
Fork 0
mirror of https://github.com/centreon/centreon-plugins.git synced 2025-07-27 07:34:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix exit status

Browse Source
This commit is contained in:
qgarnier 2017-08-11 16:44:20 +02:00
parent 5832e6a7eb
commit 54e9340f8c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contrib/cwrapper_perl.c
View File

@ -13,14 +13,17 @@ EXTERN_C void xs_init(pTHX)
} }
int main (int argc, char **argv, char **env) int main (int argc, char **argv, char **env)
{ {
int exitstatus = 0;
PERL_SYS_INIT3(&argc, &argv, &env); PERL_SYS_INIT3(&argc, &argv, &env);
my_perl = perl_alloc(); my_perl = perl_alloc();
perl_construct(my_perl); perl_construct(my_perl);
PL_exit_flags |= PERL_EXIT_DESTRUCT_END; PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
perl_parse(my_perl, xs_init, argc, argv, (char **)NULL); perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
perl_run(my_perl); exitstatus = perl_run(my_perl);
perl_destruct(my_perl); perl_destruct(my_perl);
perl_free(my_perl); perl_free(my_perl);
PERL_SYS_TERM(); PERL_SYS_TERM();
exit(exitstatus);
} }