Index: trunk/install/perl/tvrecording.pl
===================================================================
--- trunk/install/perl/tvrecording.pl (リビジョン 44)
+++ trunk/install/perl/tvrecording.pl (リビジョン 79)
@@ -307,5 +307,5 @@
 #		$outputfile .= "$ARGV[3]";		
 #		$outputfile .= `date  +%Y%m%d-%H%M --date "1 min "`;
- &writelog("tvrecording:  DEBUG ARGV[2] ne null  \$outputfile $outputfile ");
+ &writelog("tvrecording:  DEBUG ARGV[3] ne null  \$outputfile $outputfile ");
 
 	}else{
@@ -313,5 +313,5 @@
 	chomp($outputfile);
 	$outputfile .= ".m2p";
-&writelog("tvrecording:  DEBUG ARGV[2] is null  \$outputfile $outputfile ");
+&writelog("tvrecording:  DEBUG ARGV[3] is null  \$outputfile $outputfile ");
 
 	}