Author: toots Date: Tue Jun 24 01:53:25 2008 New Revision: 5801 URL: http://svn.debian.org/wsvn/pkg-ocaml-maint/?sc=1&rev=5801 Log: Updated patch to fix playlist issue...
Modified: trunk/packages/liquidsoap/trunk/debian/patches/fix_array_length_in_next.patch Modified: trunk/packages/liquidsoap/trunk/debian/patches/fix_array_length_in_next.patch URL: http://svn.debian.org/wsvn/pkg-ocaml-maint/trunk/packages/liquidsoap/trunk/debian/patches/fix_array_length_in_next.patch?rev=5801&op=diff ============================================================================== --- trunk/packages/liquidsoap/trunk/debian/patches/fix_array_length_in_next.patch (original) +++ trunk/packages/liquidsoap/trunk/debian/patches/fix_array_length_in_next.patch Tue Jun 24 01:53:25 2008 @@ -2,14 +2,15 @@ =================================================================== --- liquidsoap-0.3.7.orig/src/sources/playlist.ml 2008-06-03 01:41:02.000000000 +0200 +++ liquidsoap-0.3.7/src/sources/playlist.ml 2008-06-22 12:53:06.000000000 +0200 -@@ -341,8 +341,9 @@ - n +@@ -344,8 +344,8 @@ (fun i -> !playlist.((index_played+i+1) mod (Array.length !playlist))) | Randomize -> -+ let l = Array.length !playlist in Array.init - (min n (Array.length !playlist)-index_played-1) -+ (min n (l-index_played-1 mod l)) - (fun i -> !playlist.(index_played+i+1)) +- (fun i -> !playlist.(index_played+i+1)) ++ (min n (Array.length !playlist)-index_played) ++ (fun i -> !playlist.(index_played+i)) | Random -> [||]) + + end _______________________________________________ Pkg-ocaml-maint-commits mailing list Pkg-ocaml-maint-commits@lists.alioth.debian.org http://lists.alioth.debian.org/mailman/listinfo/pkg-ocaml-maint-commits