From e3c931ff39856a0afe8cac9ca3341216c67ce3cb Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Sat, 15 Jun 2013 12:33:16 -0700
Subject: [PATCH] Exit if check_deps() fails in --install.

---
 bin/pt-agent | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/pt-agent b/bin/pt-agent
index 187437a3..f9e5d53e 100755
--- a/bin/pt-agent
+++ b/bin/pt-agent
@@ -8087,7 +8087,7 @@ sub install {
 
    # Check Perl module dependencies
    $next_step->();
-   check_deps();
+   exit 1 unless check_deps();
 
    # 1. Must be root for --install.
    $next_step->();