From bcb74744c6bf5001c53dad53637bdcf81e0874dc Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Mon, 28 Oct 2013 08:36:07 +1300
Subject: [PATCH] Fix up returning the time if we have an old style timestamp.

---
 ChangeLog         | 3 +++
 bin/mythtv-status | 6 ++++--
 2 files changed, 7 insertions(+), 2 deletions(-)

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' => {
-- 
2.30.2