[Pkg-ocaml-maint-commits] [approx] 10/16: replace deprecated (or) with (||) (closes: #731703)

[Eric Cooper]

This is an automated email from the git hooks/post-receive script.

ecc-guest pushed a commit to branch upstream
in repository approx.

commit d148610c662a1a09c890f5b70fc7645e25c9603d
Author: Eric Cooper <ecc at cmu.edu>
Date:   Fri Dec 6 15:25:57 2013 -0500

    replace deprecated (or) with (||) (closes: #731703)
---
 approx.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/approx.ml b/approx.ml
index d1f31b8..983e74f 100644
--- a/approx.ml
+++ b/approx.ml
@@ -180,7 +180,7 @@ let close_cache cache size mod_time =
   | Cache { file = file; tmp_file = tmp_file; chan = chan } ->
       debug_message "  close cache %s" file;
       close_out chan;
-      if size = -1L or size = file_size tmp_file then begin
+      if size = -1L || size = file_size tmp_file then begin
         if mod_time <> 0. then begin
           debug_message "  setting mtime to %s" (Url.string_of_time mod_time);
           utimes tmp_file mod_time mod_time
@@ -256,7 +256,7 @@ let pass_through_header resp (cgi : cgi) =
 
 let finish_delivery resp =
   close_cache resp.cache resp.length resp.last_modified;
-  if resp.length >= 0L or resp.cache = Pass_through then Delivered else Cached
+  if resp.length >= 0L || resp.cache = Pass_through then Delivered else Cached
 
 let finish_head resp cgi =
   send_header resp.length resp.last_modified cgi;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-ocaml-maint/packages/approx.git