Fixed chapter time creation bug

[videoscripts/.git] / make_mkv

diff --git a/make_mkv b/make_mkv
index 4c411529b887953d9e7a33df97ebedb4343cce14..6ad22c6b186a50d86956652061fd9615dc0a0c76 100755 (executable)
--- 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";