[Mldonkey-commits] mldonkey/src/daemon/common commonWeb.ml

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       10/08/08 18:35:43

Modified files:
        src/daemon/common: commonWeb.ml 

Log message:
        fix web_infos download, addition to patch #7262

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/daemon/common/commonWeb.ml?cvsroot=mldonkey&r1=1.42&r2=1.43

Patches:
Index: commonWeb.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/daemon/common/commonWeb.ml,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- commonWeb.ml        31 Mar 2008 07:58:16 -0000      1.42
+++ commonWeb.ml        8 Aug 2010 18:35:43 -0000       1.43
@@ -151,7 +151,7 @@
       )
       (fun c ->
        match c with
-          | x when x < 200 || x > 299 -> begin
+          | x when x > 0 && (x < 200 || x > 299) -> begin
             (* use local version if wget fail and file exists *)
             let file = Filename.concat "web_infos" (Filename.basename 
r.H.req_url.Url.short_file) in
             (* mark this job downloaded *)