From e782a77b60fb6a8d6d78b2347a3273bb8574e620 Mon Sep 17 00:00:00 2001
From: Tom Zanussi <tzanussi@gmail.com>
Date: Tue, 15 Dec 2009 02:53:37 -0600
Subject: [PATCH] --- yaml --- r: 177437 b: refs/heads/master c:
 8f11d85a0e7e9025acea7493e6864089c8b52f42 h: refs/heads/master i:   177435:
 508ca6fab98a006f091445adbfa7d7ee39c3059c v: v3

---
 [refs]                                   | 2 +-
 trunk/tools/perf/util/trace-event-perl.c | 6 +++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/[refs] b/[refs]
index 4cfcb47f2430..059c29fbaad4 100644
--- a/[refs]
+++ b/[refs]
@@ -1,2 +1,2 @@
 ---
-refs/heads/master: a3a7cb7bb1d7bd989982314cf6f90ec392890006
+refs/heads/master: 8f11d85a0e7e9025acea7493e6864089c8b52f42
diff --git a/trunk/tools/perf/util/trace-event-perl.c b/trunk/tools/perf/util/trace-event-perl.c
index 6f10e7602452..6d6d76b8a21e 100644
--- a/trunk/tools/perf/util/trace-event-perl.c
+++ b/trunk/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;