add newline at beginng of .srt file and display it just once

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index 24b21a6..b30e50d 100755 (executable)
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -7,6 +7,7 @@ use IPC::Open3 qw(open3);
 use IO::Epoll;
 use Data::Dump qw(dump);
 use File::Slurp;
+use YAML;
 
 
 my $movie = shift @ARGV
@@ -37,11 +38,6 @@ epoll_ctl($epfd, EPOLL_CTL_ADD, fileno $to_mplayer   , EPOLLOUT ) >= 0 || die $!
 warn "$movie ", -s $movie, " bytes $edl\n";
 print $to_mplayer qq|loadfile "$movie"\n|;
 
-if ( -e $subtitles ) {
-       print $to_mplayer "sub_visibility 1\n";
-       print $to_mplayer qq|sub_load "$subtitles"\n|;
-}
-
 $|=1;
 
 my $line;
@@ -78,6 +74,14 @@ sub save_subtitles {
                warn $srt;
        }
        write_file $subtitles, $srt;
+       YAML::DumpFile "$subtitles.yaml", @subtitles;
+}
+
+if ( -e $subtitles ) {
+       print $to_mplayer "sub_visibility 1\n";
+       print $to_mplayer qq|sub_load "$subtitles"\n|;
+       @subtitles = YAML::LoadFile "$subtitles.yaml";
+       warn "subtitles ", dump @subtitles;
 }
 
 sub add_subtitle {