X-Git-Url: http://git.pippins.net/embedvideo/.git/?a=blobdiff_plain;f=make_mkv;fp=make_mkv;h=6ad22c6b186a50d86956652061fd9615dc0a0c76;hb=5483963151e96a4941fac5721f76d2f3119a851a;hp=4c411529b887953d9e7a33df97ebedb4343cce14;hpb=75913896fe5842b5783d61a8a0c9b709940faf5d;p=videoscripts%2F.git diff --git a/make_mkv b/make_mkv index 4c41152..6ad22c6 100755 --- a/make_mkv +++ b/make_mkv @@ -96,9 +96,7 @@ foreach my $video (sort{$videos{$a} <=> $videos{$b}} keys %videos) { print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."=".$start_time."\n"; print CHAPTERS "CHAPTER".sprintf("%02d",$chapter_num)."NAME=".$mdate."\n"; my $dt = DateTime::Duration->new(years => 1900, hours => $hour, minutes => $min, seconds => $sec); - my $prev_dt = DateTime::Duration->new(years => 1900, hours => $prev_hour, minutes => $prev_min, seconds => $prev_sec); - $new_duration = $dt + $prev_dt; - $prev_hour = $hour; $prev_min = $min; $prev_sec = $sec; + $new_duration = $dt + $new_duration; } close(CHAPTERS); print "\n-> Creating the following chapter file for this video:\n";