From bc310a63b0365feaf5234789f4ab379b46b71ebc Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Mon, 3 Dec 2007 11:53:54 +1300
Subject: [PATCH] Be a bit more paranoid about doing substitutions.

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

diff --git a/bin/mythtv-status b/bin/mythtv-status
index 13090a1..15bb6b5 100755
--- 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';
 
-- 
2.30.2