sort subtitles on load based on start time

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index 8fda862..7d1797b 100755 (executable)
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -162,7 +162,7 @@ sub save_subtitles {
 }
 
 sub load_subtitles {
-       @subtitles = YAML::LoadFile "$subtitles.yaml";
+       @subtitles = sort { $a->[0] <=> $b->[0] } YAML::LoadFile "$subtitles.yaml";
        warn "subtitles ", dump @subtitles;
        save_subtitles;
 }