From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Mon, 19 Nov 2007 08:43:56 +0000 (+1300)
Subject: Fix warning.
X-Git-Tag: 0.5~21
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cc278c1a0b5bc9c43a61edef8b506ae443ca0409;p=mythtv-status.git

Fix warning.
---

diff --git a/bin/mythtv-status b/bin/mythtv-status
index bbd44e8..f77a66b 100755
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -121,7 +121,7 @@ my @blocks = (
       'find_next' => sub {
 	 my $vars = shift;
          return
-	   if $next_time eq 'now';
+	   if defined $next_time && $next_time eq 'now';
 
          my $date = ParseDate($vars->{'startTime'});
 	 if (! defined $next_time || Date_Cmp($date, $next_time) < 0) {