Index: trunk/install/perl/tvrecording.pl
===================================================================
--- trunk/install/perl/tvrecording.pl (リビジョン 83)
+++ trunk/install/perl/tvrecording.pl (リビジョン 94)
@@ -29,5 +29,5 @@
 $path = $0;
 $path =~ s/tvrecording.pl$//i;
-if ($pwd  ne "./"){
+if ($path ne "./"){
 push( @INC, "$path");
 }
@@ -301,5 +301,5 @@
 #		$outputfile .= "$ARGV[3]";
 #		}else{
-#		$outputfile .= `date  +%Y%m%d-%H%M --date "1 min "`;
+#		$outputfile .= strftime("%Y%m%d-%H%M", localtime(time + 60));
 #		}
 		$outputfile = $ARGV[3];
@@ -308,8 +308,8 @@
 		$outputfile = $outputpath.$outputfile ;
 #		$outputfile .= "$ARGV[3]";		
-#		$outputfile .= `date  +%Y%m%d-%H%M --date "1 min "`;
+#		$outputfile .= strftime("%Y%m%d-%H%M", localtime(time + 60));
 		&writelog("tvrecording:  DEBUG ARGV[2] ne null  \$outputfile $outputfile ");
 	}else{
-		$outputfile .= `date  +%Y%m%d-%H%M --date "1 min "`;
+	$outputfile .= strftime("%Y%m%d-%H%M", localtime(time + 60));
 		chomp($outputfile);
 		$outputfile .= ".m2p";