perf scripting python: Add 'addr_location' for 'addr'

[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 0e608a5..a837aee 100644 (file)
--- a/tools/perf/util/scripting-engines/trace-event-perl.c
+++ b/tools/perf/util/scripting-engines/trace-event-perl.c
@@ -456,7 +456,8 @@ static void perl_process_event_generic(union perf_event *event,
 static void perl_process_event(union perf_event *event,
                               struct perf_sample *sample,
                               struct evsel *evsel,
-                              struct addr_location *al)
+                              struct addr_location *al,
+                              struct addr_location *addr_al __maybe_unused)
 {
        perl_process_tracepoint(sample, evsel, al);
        perl_process_event_generic(event, sample, evsel);
@@ -750,6 +751,7 @@ sub print_backtrace\n\
 
 struct scripting_ops perl_scripting_ops = {
        .name = "Perl",
+       .dirname = "perl",
        .start_script = perl_start_script,
        .flush_script = perl_flush_script,
        .stop_script = perl_stop_script,