X-Git-Url: http://git.monstr.eu/?a=blobdiff_plain;f=tools%2Fperf%2Futil%2Fscripting-engines%2Ftrace-event-perl.c;h=a837aee246748d1e029d6d010472f863ee8bb978;hb=3f8e009e01c4ed9f75c10f33936990f3a3d39fcd;hp=865d310968fb9a2c68afb3464d1f74a30d050a14;hpb=6ea4b5dbe0c40bbafacdb78405a3bcbe88593ba1;p=linux-2.6-microblaze.git

diff --git a/tools/perf/util/scripting-engines/trace-event-perl.c b/tools/perf/util/scripting-engines/trace-event-perl.c
index 865d310968fb..a837aee24674 100644
--- 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);