fix warning for invalid subtitles without from time

[HTML5TV.git] / lib / HTML5TV / Slides.pm

diff --git a/lib/HTML5TV/Slides.pm b/lib/HTML5TV/Slides.pm
index dca7053..3ae8c63 100644 (file)
--- a/lib/HTML5TV/Slides.pm
+++ b/lib/HTML5TV/Slides.pm
@@ -148,6 +148,9 @@ sub show {
                my $col_pos      = SDL::Color->new( -r => 0x00, -g => 0xff, -b => 0x00 );
 
                foreach my $s ( @subtitles ) {
+
+                       next unless defined $s->[0];
+
                        my $s_x = int( $s->[0] * $w_1s + 0.9 );
                        my $s_w = int( abs( $s->[1] - $s->[0] ) * $w_1s + 0.9 );