[Mldonkey-commits] Changes to mldonkey/src/utils/net/http_server.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/http_server.ml
diff -u mldonkey/src/utils/net/http_server.ml:1.15 
mldonkey/src/utils/net/http_server.ml:1.16
--- mldonkey/src/utils/net/http_server.ml:1.15  Sun Jul 10 23:19:16 2005
+++ mldonkey/src/utils/net/http_server.ml       Mon Jul 11 11:23:12 2005
@@ -219,7 +219,7 @@
       let fin_meth = String.index ans ' ' in
       let meth = String.sub ans 0 fin_meth in
       let fin_file = String.index_from ans (fin_meth + 1) ' ' in
-      let file = String.sub ans (fin_meth+2) (fin_file-fin_meth-2) in
+      let file = String.sub ans (fin_meth+1) (fin_file-fin_meth-1) in
       let version = match ans.[String.length ans - 1] with
           '0' -> HTTP1_0
         | '1' -> HTTP1_1