adulau/aha
1
0
Fork 0
mirror of https://github.com/adulau/aha.git synced 2024-12-28 11:46:19 +00:00
Code Issues Projects Releases Packages Wiki Activity

perf trace/scripting: Check return val of perl_run()

Browse source 
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:
Tom Zanussi 2009-12-15 02:53:37 -06:00 committed by Ingo Molnar
parent a3a7cb7bb1
commit 8f11d85a0e
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tools/perf/util/trace-event-perl.c
View file

@ -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;