From fac2f5c9f58de07e1a15a262fecdd2781849ded7 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 23 Oct 2009 18:44:19 +0200
Subject: [PATCH] sort customEvents just once

---
 bin/mplayer.pl | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/bin/mplayer.pl b/bin/mplayer.pl
index 59dc3f1..9dd342d 100755
--- a/bin/mplayer.pl
+++ b/bin/mplayer.pl
@@ -163,6 +163,7 @@ sub html5tv {
 		return;
 	}
 
+	warn "html5tv";
 
 	my $sync;
 
@@ -335,21 +336,22 @@ sub html5tv {
 		)
 	;
 
-	sub customEvents_sorted {
-
-		if ( ref $html5tv->{sync}->{customEvents} ne 'ARRAY' ) {
-			my $max = 
-			warn "ERROR: no slide markers [1] .. [", scalar @slides_hires, "] in subtitles\n";
-			return;
-		}
+	my @customEvents_sorted;
 
+	if ( ref $html5tv->{sync}->{customEvents} ne 'ARRAY' ) {
+		my $max = 
+		warn "ERROR: no slide markers [1] .. [", scalar @slides_hires, "] in subtitles\n";
+		return;
+	} else {
+		@customEvents_sorted =
 		sort { $a->{startTime} <=> $b->{startTime} }
 		@{ $html5tv->{sync}->{customEvents} }
+		;
 	}
 
 	my $index = 1;
 
-	$_->{args}->{index} = $index++ foreach customEvents_sorted;
+	$_->{args}->{index} = $index++ foreach @customEvents_sorted;
 
 	warn "last customEvent $index\n";
 
@@ -367,7 +369,7 @@ sub html5tv {
 				</tr>
 				|
 			}
-			customEvents_sorted
+			@customEvents_sorted
 		)
 		. qq|</table><a href="$media_dir/video.srt">download subtitles</a>|
 		;
-- 
2.20.1