From 29b1d20857917f20722db3da26180121f272ae9d Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Fri, 14 Jun 2013 22:05:51 -0700
Subject: [PATCH] Fix reporting errors when stopping services.

---
 bin/pt-agent | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/bin/pt-agent b/bin/pt-agent
index ff19a9bd..5f080db2 100755
--- a/bin/pt-agent
+++ b/bin/pt-agent
@@ -7810,6 +7810,7 @@ sub stop_all_services {
       foreach my $file ( glob "$lib_dir/services/stop-*" ) {
          my $service  = basename($file);
          my $stop_log = "$lib_dir/logs/$service.stop";
+         my $run_log  = "$lib_dir/logs/$service.run";
          my $cmd      = ($env_vars ? "$env_vars " : '')
                       . "${bin_dir}pt-agent --run-service $service"
                       . " </dev/null"
@@ -7819,8 +7820,8 @@ sub stop_all_services {
          system($cmd);
          my $cmd_exit_status = $CHILD_ERROR >> 8;
          if ( $cmd_exit_status != 0 ) {
-            my $err = slurp($stop_log);
-            $logger->warning("Error stopping $service: " . ($err || ''));
+            my $err = -f $run_log ? slurp($run_log) : '';
+            $logger->error("Error stopping $service: " . ($err || '(No error logged)'));
             next SERVICE;
          }
          unlink $stop_log