Skip to content

Commit

Permalink
Correct timestamps usage in Perl bindings
Browse files Browse the repository at this point in the history
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
Jaak Pruulmann-Vengerfeldt authored and wagnerrp committed Jan 17, 2012
1 parent 294968b commit b151996
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions mythtv/bindings/perl/MythTV/Program.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down

0 comments on commit b151996

Please sign in to comment.