if no subtitles, insert first one

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index 9047847..b78c3c2 100755 (executable)
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -568,7 +568,7 @@ if ( -e "$media_dir/presentation.txt" ) {
 
 
 sub add_subtitle {
-       if ( $subtitles[ $#subtitles ]->[2] =~ m{\[(\d+)\]} ) {
+       if ( ! @subtitles || $subtitles[ $#subtitles ]->[2] =~ m{\[(\d+)\]} ) {
 
                # quick add next slide for Takahashi method presentations
                # with a lot of transitions