Commit 8f11d85a authored Dec 15, 2009 by Tom Zanussi Committed by Ingo Molnar Dec 15, 2009

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>

parent a3a7cb7b

tools/perf/util/trace-event-perl.c

+5 −1

Original line number	Diff line number	Diff line
		@@ -379,7 +379,11 @@ static int perl_start_script(const char script, int argc, const char *argv)
		goto error;
		}

		perl_run(my_perl);
		if (perl_run(my_perl)) {
		err = -1;
		goto error;
		}

		if (SvTRUE(ERRSV)) {
		err = -1;
		goto error;