Dwight Merriman: MongoDB, High-Performance SQL-Free Database

[HTML5TV.git] / bin / mplayer.pl

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index a0c65e9..c5ab69a 100755 (executable)
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -545,6 +545,8 @@ my @to_mplayer;
 
 sub save_subtitles {
 
+       YAML::DumpFile "$subtitles.yaml", sort { $a->[0] <=> $b->[0] } @subtitles if @subtitles;
+
        html5tv || return;
 
        my $nr = 0;
@@ -558,7 +560,6 @@ sub save_subtitles {
        warn $srt;
 
        write_file $subtitles, $srt;
-       YAML::DumpFile "$subtitles.yaml", sort { $a->[0] <=> $b->[0] } @subtitles;
 
        push @to_mplayer
                , "sub_remove\n"