From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Sun, 27 Oct 2013 19:36:07 +0000 (+1300)
Subject: Fix up returning the time if we have an old style timestamp.
X-Git-Tag: 0.10.4~3
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bcb74744c6bf5001c53dad53637bdcf81e0874dc;p=mythtv-status.git

Fix up returning the time if we have an old style timestamp.
---

diff --git a/ChangeLog b/ChangeLog
index 6e99f72..be3e471 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,9 @@
 2013-10-28	Andrew Ruthven
         Guard against zero total disk space, this affected Werner Mahr.
 
+	Fix up processing of dates with oldstyle timestamps for in
+	progress recordings.
+
 2013-10-27	Andrew Ruthven
 	Handle the handling in POD in Perl 5.18. Force the return code
 	=item lines to be handled correctly.
diff --git a/bin/mythtv-status b/bin/mythtv-status
index 917a6b1..cf8dcdc 100755
--- a/bin/mythtv-status
+++ b/bin/mythtv-status
@@ -315,10 +315,12 @@ my @blocks = (
         my ($value, $vars) = @_;
 
 	if ($value =~ /Z$/) {
-	  return process_iso_date($value, { date => 0 });
+	  $value = process_iso_date($value, { date => 0 });
 	} else {
-	  return $value =~ s/.*T//;
+	  $value =~ s/.*T//;
 	}
+
+	return $value;
       },
     },
     'subs' => {