die on File not found

[HTML5TV.git] / bin / mplayer.pl

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index 8cd40a6..b3c6dd7 100755 (executable)
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -739,6 +739,8 @@ sub from_mplayer {
 
                warn "slide $nr from video $pos file $shot\n";
                save_subtitles;
+       } elsif ( $line =~ m{File not found} ) {
+               die $line;
        } else {
                warn "IGNORE $line";
        }
@@ -750,6 +752,8 @@ push @to_mplayer, "get_property $_\n" foreach grep { ! $prop->{$_} } ( qw/metada
 my $t = time;
 my $line;
 
+push @to_mplayer, 'pause' if $generate;
+
 while ( 1 ) {
 
        my $dt = time - $t;