Ticket #3429: mythtv-perl_bindings-use_recstartts_for_formatted_names.patch

bindings/perl/MythTV/Program.pm

@@ -214 +214 @@
             }
         }
     # Start/end times
-        my ($ssecond, $sminute, $shour, $sday, $smonth, $syear) = localtime($self->{'starttime'});
-        my ($esecond, $eminute, $ehour, $eday, $emonth, $eyear) = localtime($self->{'endtime'});
+        my ($ssecond, $sminute, $shour, $sday, $smonth, $syear) = localtime($self->{'recstartts'});
+        my ($esecond, $eminute, $ehour, $eday, $emonth, $eyear) = localtime($self->{'recendts'});
     # Format some fields we may be parsing below
         # Start time
         $syear += 1900;