From b745110cbc3cb75fd9db96bfa056b0bc9963438a Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Mon, 7 Jan 2008 15:49:21 +1300
Subject: [PATCH] Handle another possible place where loading MythTV might
 fail.

---
 bin/mythtv-status | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/bin/mythtv-status b/bin/mythtv-status
index 057a72e..2686b22 100755
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -509,6 +509,9 @@ sub load_perl_api {
     # Surpress warnings from DBI.  I tried unsetting $^W but that is ignored.
     local($SIG{__WARN__}) = sub { if ($verbose) { print shift } };
     eval { $myth = new MythTV() };
+
+    print $@
+      if $@ && $verbose;
   }
 
   return $myth;
-- 
2.30.2