Index: trunk/install/perl/tvrecording.pl
===================================================================
--- trunk/install/perl/tvrecording.pl (リビジョン 8)
+++ trunk/install/perl/tvrecording.pl (リビジョン 28)
@@ -42,5 +42,6 @@
 #tvConfig.pl -------------------------------
 $extendrecendsec = 10;							#recording end second. 
-$startupsleeptime = 52;					#process wait(MAX60sec)
+#$startupsleeptime = 52;					#process wait(MAX60sec)
+$startupsleeptime = 37;					#process wait(MAX60sec)
 #$startupsleeptime = 1;					#process wait(MAX60sec)
 
@@ -259,6 +260,10 @@
 
 # $recch でウェイト調整入れましょう
-my $intval = $recch % 50; # 0〜49
-my $startupsleep = $startupsleeptime - $intval; #  3〜52 (VHF 40-51)
+#52
+#my $intval = $recch % 50; # 0〜49
+#my $startupsleep = $startupsleeptime - $intval; #  3〜52 (VHF 40-51)
+#37
+my $intval = $recch % 35; # 0〜34
+my $startupsleep = $startupsleeptime - $intval; #  3-37 (VHF 25-36,tvk 30)
 $reclengthsec = $reclengthsec + $intval + 1; #