Permalink
Browse files

Correct timestamps usage in Perl bindings

This corrects which timestamps are used when applying values to
formatting strings, properly using starttime and endtime for EPG values,
rather than recstartts and recendts.

Signed-off-by: Raymond Wagner <rwagner@mythtv.org>
(cherry picked from commit c29b91c)
  • Loading branch information...
1 parent 294968b commit b1519960f11f55dadf63d9cc3b242dd15e1e035a Jaak Pruulmann-Vengerfeldt committed with wagnerrp Jan 17, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 mythtv/bindings/perl/MythTV/Program.pm
@@ -230,8 +230,8 @@ package MythTV::Program;
my ($ssecond, $sminute, $shour, $sday, $smonth, $syear) = localtime($self->{'recstartts'});
my ($esecond, $eminute, $ehour, $eday, $emonth, $eyear) = localtime($self->{'recendts'});
# Program start/end times
- my ($spsecond, $spminute, $sphour, $spday, $spmonth, $spyear) = localtime($self->{'recstartts'});
- my ($epsecond, $epminute, $ephour, $epday, $epmonth, $epyear) = localtime($self->{'recendts'});
+ my ($spsecond, $spminute, $sphour, $spday, $spmonth, $spyear) = localtime($self->{'starttime'});
+ my ($epsecond, $epminute, $ephour, $epday, $epmonth, $epyear) = localtime($self->{'endtime'});
# Format some fields we may be parsing below
# Recording start time
$syear += 1900;

0 comments on commit b151996

Please sign in to comment.