Skip to content
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>
  • Loading branch information...
1 parent 12aa7ca commit c29b91c26853a9ca619836b37ed434b451241c0e 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
View
4 mythtv/bindings/perl/MythTV/Program.pm
@@ -236,8 +236,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 c29b91c

Please sign in to comment.
Something went wrong with that request. Please try again.