Index: trunk/install/perl/ipodtranscode.pl =================================================================== --- trunk/install/perl/ipodtranscode.pl (リビジョン 97) +++ trunk/install/perl/ipodtranscode.pl (リビジョン 111) @@ -306,4 +306,9 @@ # 中間ファイル消す &changefilestatus($pid,$FILESTATUSTRANSCODECOMPLETE); + &updatemp4file(); + }else{ + &writelog("ipodtranscode ERR ; Fail.Giving up! MAQ${mp4filenamestring}.MP4"); + &changefilestatus($pid,999); + } unlink("${filenamebody}_HD.m2t"); unlink("${filenamebody}_tss.m2t"); @@ -311,9 +316,5 @@ unlink("$filenamebody.wav"); unlink("$filenamebody.base.mp4"); - - &updatemp4file(); - }else{ - &writelog("ipodtranscode ERR ; Fail MAQ${mp4filenamestring}.MP4"); - } + }