Handle another possible place where loading MythTV might fail.

diff --git a/bin/mythtv-status b/bin/mythtv-status
index 057a72ef294fbc13016a3174df0163634f2a1443..2686b22abb4b7529c6898a6f4b24f8d44e69650d 100755 (executable)
--- 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;