1 files changed, 7 insertions, 15 deletions

diff --git a/tools/perf/util/scripting-engines/trace-event-perl.c b/tools/perf/util/scripting-engines/trace-event-perl.c
index d5e5969f6fea..e108207c5de0 100644
--- a/tools/perf/util/scripting-engines/trace-event-perl.c
+++ b/tools/perf/util/scripting-engines/trace-event-perl.c
@@ -194,8 +194,7 @@ static void define_event_symbols(struct event_format *event,
                 zero_flag_atom = 0;
                 break;
         case PRINT_FIELD:
-                if (cur_field_name)
-                        free(cur_field_name);
+                free(cur_field_name);
                 cur_field_name = strdup(args->field.name);
                 break;
         case PRINT_FLAGS:
@@ -257,12 +256,9 @@ static inline struct event_format *find_cache_event(struct perf_evsel *evsel)
         return event;
 }
 
-static void perl_process_tracepoint(union perf_event *perf_event __maybe_unused,
-                                    struct perf_sample *sample,
+static void perl_process_tracepoint(struct perf_sample *sample,
                                     struct perf_evsel *evsel,
-                                    struct machine *machine __maybe_unused,
-                                    struct thread *thread,
-                                        struct addr_location *al)
+                                    struct thread *thread)
 {
         struct format_field *field;
         static char handler[256];
@@ -349,10 +345,7 @@ static void perl_process_tracepoint(union perf_event *perf_event __maybe_unused,
 
 static void perl_process_event_generic(union perf_event *event,
                                        struct perf_sample *sample,
-                                       struct perf_evsel *evsel,
-                                       struct machine *machine __maybe_unused,
-                                       struct thread *thread __maybe_unused,
-                                           struct addr_location *al __maybe_unused)
+                                       struct perf_evsel *evsel)
 {
         dSP;
 
@@ -377,12 +370,11 @@ static void perl_process_event_generic(union perf_event *event,
 static void perl_process_event(union perf_event *event,
                                struct perf_sample *sample,
                                struct perf_evsel *evsel,
-                               struct machine *machine,
                                struct thread *thread,
-                                   struct addr_location *al)
+                               struct addr_location *al __maybe_unused)
 {
-        perl_process_tracepoint(event, sample, evsel, machine, thread, al);
-        perl_process_event_generic(event, sample, evsel, machine, thread, al);
+        perl_process_tracepoint(sample, evsel, thread);
+        perl_process_event_generic(event, sample, evsel);
 }
 
 static void run_start_sub(void)