From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Mon, 7 Jan 2008 02:49:21 +0000 (+1300)
Subject: Handle another possible place where loading MythTV might fail.
X-Git-Tag: 0.7.0~8
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=17f7266f18ce35059955c087e81bebeff60acb9f;p=mythtv-status.git

Handle another possible place where loading MythTV might fail.
---

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;