Ticket #10267: mythtv-perl.patch

File mythtv-perl.patch, 985 bytes (added by anonymous, 10 years ago)
  • mythtv-0.24.1+fixes20111226/bindings/perl/MythTV/Program.pm

    old new  
    230230        my ($ssecond, $sminute, $shour, $sday, $smonth, $syear) = localtime($self->{'recstartts'});
    231231        my ($esecond, $eminute, $ehour, $eday, $emonth, $eyear) = localtime($self->{'recendts'});
    232232    # Program start/end times
    233         my ($spsecond, $spminute, $sphour, $spday, $spmonth, $spyear) = localtime($self->{'recstartts'});
    234         my ($epsecond, $epminute, $ephour, $epday, $epmonth, $epyear) = localtime($self->{'recendts'});
     233        my ($spsecond, $spminute, $sphour, $spday, $spmonth, $spyear) = localtime($self->{'starttime'});
     234        my ($epsecond, $epminute, $ephour, $epday, $epmonth, $epyear) = localtime($self->{'endtime'});
    235235    # Format some fields we may be parsing below
    236236        # Recording start time
    237237        $syear += 1900;