perf scripting: Add perf_session to scripting_context

[linux-2.6-microblaze.git] / tools / perf / util / scripting-engines / trace-event-perl.c

diff --git a/tools/perf/util/scripting-engines/trace-event-perl.c b/tools/perf/util/scripting-engines/trace-event-perl.c
index 5bbf00c..32a721b 100644 (file)
--- a/tools/perf/util/scripting-engines/trace-event-perl.c
+++ b/tools/perf/util/scripting-engines/trace-event-perl.c
@@ -473,11 +473,14 @@ static void run_start_sub(void)
 /*
  * Start trace script
  */
-static int perl_start_script(const char *script, int argc, const char **argv)
+static int perl_start_script(const char *script, int argc, const char **argv,
+                            struct perf_session *session)
 {
        const char **command_line;
        int i, err = 0;
 
+       scripting_context->session = session;
+
        command_line = malloc((argc + 2) * sizeof(const char *));
        command_line[0] = "";
        command_line[1] = script;