From 490a8a7c90e5da7d58798ed46fe280d10301c070 Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Sun, 9 Jun 2013 09:53:10 -0700
Subject: [PATCH] Don't crash if disk space check fails.

---
 bin/pt-agent | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/bin/pt-agent b/bin/pt-agent
index a7f21756..58951381 100755
--- a/bin/pt-agent
+++ b/bin/pt-agent
@@ -5897,14 +5897,20 @@ sub run_agent {
             $daemon = $new_daemon;
          }
 
-         # Check the safeguards.      
-         my $disk_space = $safeguards->get_disk_space(
-            filesystem => $config->options->{spool},
-         );
-         my $disk_space_ok = $safeguards->check_disk_space(
-            disk_space => $disk_space,
-         );
-
+         # Check the safeguards.
+         my ($disk_space, $disk_space_ok);
+         eval {
+            $disk_space = $safeguards->get_disk_space(
+               filesystem => $config->options->{spool},
+            );
+            $disk_space_ok = $safeguards->check_disk_space(
+               disk_space => $disk_space,
+            );
+         };
+         if ( $EVAL_ERROR ) {
+            $logger->warn("Error checking disk space: $EVAL_ERROR");
+            $disk_space_ok = 1;
+         }
          if ( !$disk_space_ok ) {
             $logger->warn("Disk bytes free/percentage threshold: "
                . $safeguards->{disk_bytes_free}