1 files changed, 5 insertions, 1 deletions

diff --git a/tools/perf/util/trace-event-perl.c b/tools/perf/util/trace-event-perl.c
index 6f10e7602452..6d6d76b8a21e 100644
--- a/tools/perf/util/trace-event-perl.c
+++ b/tools/perf/util/trace-event-perl.c
@@ -379,7 +379,11 @@ static int perl_start_script(const char *script, int argc, const char **argv)
                 goto error;
         }
 
-        perl_run(my_perl);
+        if (perl_run(my_perl)) {
+                err = -1;
+                goto error;
+        }
+
         if (SvTRUE(ERRSV)) {
                 err = -1;
                 goto error;