From 5cc1b086dfdaaa561bfdb0c1eefdd5bc993e6afd Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 20 Oct 2009 16:16:19 +0200
Subject: [PATCH] fix warning

---
 bin/mplayer.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index 89836cd..f4a9ddb 100755
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -602,11 +602,10 @@ load_movie;
 my $slides = HTML5TV::Slides->new(
 	sub {
 		my $t = shift;
-		my $nr;
+		my $nr = 0;
 		foreach my $s ( @subtitles ) {
 			$nr = $1 if $s->[2] =~ m{\[(\d+)\]} && $s->[0] < $t;
 		}
-		warn "# $t $nr\n";
 		return $nr;
 	}
 );
-- 
2.20.1