]> git.etc.gen.nz Git - mythtv-status.git/commitdiff
Fix passing in the error ref to DateCalc.
authorRon Kellam <ron_kellam@yahoo.com>
Sun, 13 Jun 2010 10:13:00 +0000 (22:13 +1200)
committerAndrew Ruthven <andrew@etc.gen.nz>
Sun, 13 Jun 2010 10:13:00 +0000 (22:13 +1200)
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.

bin/mythtv-status

index 1119887cb26dbaf1f04f1a1dae9e75ada9007b52..7e7b7eadceed543215f5f050a1ec90910b4be907 100755 (executable)
@@ -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');