--- mythtv-0.24.1+fixes20111226/bindings/perl/MythTV/Program.pm.orig	2012-01-16 15:34:38.660484053 +0200
+++ mythtv-0.24.1+fixes20111226/bindings/perl/MythTV/Program.pm	2012-01-16 15:34:50.631828263 +0200
@@ -230,8 +230,8 @@
         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;