Be a bit more paranoid about doing substitutions.

diff --git a/bin/mythtv-status b/bin/mythtv-status
index 13090a1b1702ab9cbb8f7b2e697c032cc7608b60..15bb6b587ffe20ebf07bad3a6d737f3a0e87b203 100755 (executable)
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -417,6 +417,11 @@ sub substitute_vars {
   my $skip = undef;
   my ($key, $value);
   while (($key, $value) = (each %{ $vars })) {
+    if (! defined $value) {
+      warn "Unable to find any value for $key while looking at $block->{'name'}\n";
+      next;
+    }
+
     $value = wrap('  ', '  ', $value)
       if $key eq 'NODE_TEXT';