[Pkg-ocaml-maint-commits] [approx] 01/06: handle HTTP/2 status (closes: #867048)

[Eric Cooper]

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

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

commit c30ae37d638e0a9120b00ccc1e275cb48aa97261
Author: Eric Cooper <ecc at cmu.edu>
Date:   Mon Jul 3 15:19:52 2017 -0400

    handle HTTP/2 status (closes: #867048)
---
 approx.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/approx.ml b/approx.ml
index 6e42552..283e274 100644
--- a/approx.ml
+++ b/approx.ml
@@ -1,5 +1,5 @@
 (* approx: proxy server for Debian archive files
-   Copyright (C) 2014  Eric C. Cooper <ecc at cmu.edu>
+   Copyright (C) 2017  Eric C. Cooper <ecc at cmu.edu>
    Released under the GNU General Public License *)
 
 open Printf
@@ -272,7 +272,7 @@ let with_pair rex str proc =
   | [| a; b |] -> proc (a, b)
   | _ -> assert false
 
-let status_re = Pcre.regexp "^HTTP/\\d+\\.\\d+\\s+(\\d{3})(?:\\s+(.*?)\\s*)?$"
+let status_re = Pcre.regexp "^HTTP/\\d+(?:\\.\\d+)?\\s+(\\d{3})(?:\\s+(.*?)\\s*)?$"
 let header_re = Pcre.regexp "^(.*?):\\s*(.*?)\\s*$"
 
 let process_header resp str =

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