From a32eb866eeec28ad335c3e6266ea03251eb4ffa6 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 13 Feb 2010 14:49:05 +0100
Subject: [PATCH] use YAML::Syck so we support utf-8 video.srt.yaml

---
 bin/mplayer.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index 3440a71..8f47184 100755
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -9,7 +9,7 @@ use IPC::Open3 qw(open3);
 use IO::Select;
 use Data::Dump qw(dump);
 use File::Slurp;
-use YAML;
+use YAML::Syck;
 use JSON;
 use Graphics::Magick;
 use Time::HiRes qw(time);
@@ -554,7 +554,7 @@ my @to_mplayer;
 
 sub save_subtitles {
 
-	YAML::DumpFile "$subtitles.yaml", sort { $a->[0] <=> $b->[0] } @subtitles if @subtitles;
+	DumpFile "$subtitles.yaml", sort { $a->[0] <=> $b->[0] } @subtitles if @subtitles;
 
 	html5tv || return;
 
@@ -584,7 +584,7 @@ sub load_subtitles {
 		warn "no subtitles $subtitles to load\n";
 		return;
 	}
-	@subtitles = YAML::LoadFile "$subtitles.yaml";
+	@subtitles = LoadFile "$subtitles.yaml";
 	warn "subtitles ", dump @subtitles;
 	annotate_subtitles;
 	save_subtitles;
@@ -828,7 +828,7 @@ while ( 1 ) {
 	my $dt = time - $t;
 	if ( abs($dt) > 0.2 ) {
 #warn "dt $dt\n";
-		$slides->show( $pos, $prop->{length}, @subtitles ) if $prop->{length};
+		$slides->show( $pos, $prop->{length}, @subtitles ) if $prop->{length} && ! $ENV{GENERATE};
 		$t = time;
 	}
 
-- 
2.20.1