Ticket #2621: mythtv-perl_bindings-Program_24_hr_leading_zero.patch

bindings/perl/MythTV/Program.pm

@@ -151 +151 @@
         elsif ($hour < 1) {
             $hour = 12;
         }
+        $shour = "0$shour" if ($shour < 10);
         $sminute = "0$sminute" if ($sminute < 10);
         # End time
         $eyear += 1900;
@@ -165 +166 @@
         elsif ($ethour < 1) {
             $ethour = 12;
         }
+        $ehour = "0$ehour" if ($ehour < 10);
         $eminute = "0$eminute" if ($eminute < 10);
     # Original airdate
         my ($oday, $omonth, $oyear) = (localtime($self->{'airdate'}))[3,4,5];