[Pkg-ocaml-maint-commits] r5801 - /trunk/packages/liquidsoap/trunk/debian/patches/fix_array_length_in_next.patch

[toots at users.alioth.debian.org]

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