Index: /trunk/install/perl/tvrecording.pl
===================================================================
--- /trunk/install/perl/tvrecording.pl (リビジョン 28)
+++ /trunk/install/perl/tvrecording.pl (リビジョン 29)
@@ -266,7 +266,7 @@
 my $intval = $recch % 35; # 0〜34
 my $startupsleep = $startupsleeptime - $intval; #  3-37 (VHF 25-36,tvk 30)
-$reclengthsec = $reclengthsec + $intval + 1; #
-
-&writelog("tvrecording:  DEBUG SLEEP $startupsleeptime:$intval:$startupsleep");
+$reclengthsec = $reclengthsec + (60 - $startupsleep) + 1; #
+
+&writelog("tvrecording:  DEBUG SLEEP $startupsleeptime:$intval:$startupsleep:$reclengthsec");
 
 sleep ( $startupsleep);