From: Ron Kellam <ron_kellam@yahoo.com>
Date: Sun, 13 Jun 2010 10:13:00 +0000 (+1200)
Subject: Fix passing in the error ref to DateCalc.
X-Git-Tag: 0.9.4~1
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=76d5db9390aa0468ba7a7d385055aaefb31d48bd;p=mythtv-status.git

Fix passing in the error ref to DateCalc.

It seems that Date::Manip::DateCalc in some versions require that
you parse in a ref for the error ref, passing in undef causes it
to not perform the date calculation.  Parse in a ref, even if we
don't actually check it.  Thanks to Ron Kellam for doing some
leg work on tracking this issue down.
---

diff --git a/bin/mythtv-status b/bin/mythtv-status
index 1119887..7e7b7ea 100755
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -388,7 +388,8 @@ my @blocks = (
         return $next_time
           if $next_time eq 'Never' || $next_time eq 'now';
 
-        my $delta   = DateCalc('now', $next_time, undef, 1);
+        my $err;
+        my $delta   = DateCalc('now', $next_time, \$err, 1);
         my $str     = Delta_Format($delta, 0, '%hh Hours, %mv Minutes');
         my $seconds = Delta_Format($delta, 0, '%sh');