perf trace/scripting: Check return val of perl_run()
The return value from perl_run() is currently ignored, but it should be checked and used to exit perf if there are problems loading the script. Signed-off-by: Tom Zanussi <tzanussi@gmail.com> Cc: fweisbec@gmail.com Cc: rostedt@goodmis.org LKML-Reference: <1260867220-15699-4-git-send-email-tzanussi@gmail.com> Signed-off-by: Ingo Molnar <mingo@elte.hu>
This commit is contained in:
parent
a3a7cb7bb1
commit
8f11d85a0e
|
@ -379,7 +379,11 @@ static int perl_start_script(const char *script, int argc, const char **argv)
|
||||||
goto error;
|
goto error;
|
||||||
}
|
}
|
||||||
|
|
||||||
perl_run(my_perl);
|
if (perl_run(my_perl)) {
|
||||||
|
err = -1;
|
||||||
|
goto error;
|
||||||
|
}
|
||||||
|
|
||||||
if (SvTRUE(ERRSV)) {
|
if (SvTRUE(ERRSV)) {
|
||||||
err = -1;
|
err = -1;
|
||||||
goto error;
|
goto error;
|
||||||
|
|
Loading…
Reference in a new issue