1 files changed, 1 insertions, 1 deletions

diff --git a/tools/perf/util/scripting-engines/trace-event-perl.c b/tools/perf/util/scripting-engines/trace-event-perl.c
index 5f06378a482b..61aa7f3df915 100644
--- a/tools/perf/util/scripting-engines/trace-event-perl.c
+++ b/tools/perf/util/scripting-engines/trace-event-perl.c
@@ -372,7 +372,7 @@ static void perl_process_tracepoint(struct perf_sample *sample,
         ns = nsecs - s * NSEC_PER_SEC;
 
         scripting_context->event_data = data;
-        scripting_context->pevent = evsel->tp_format->pevent;
+        scripting_context->pevent = evsel->tp_format->tep;
 
         ENTER;
         SAVETMPS;