]> matita.cs.unibo.it Git - helm.git/commitdiff
www-sop.inria.fr
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 17 Sep 2003 12:27:50 +0000 (12:27 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Wed, 17 Sep 2003 12:27:50 +0000 (12:27 +0000)
   ^
Hyphen in the name of the server were not allowed. Fixed.

helm/http_getter/http_getter_misc.ml

index 7b70a14b1112ce975cc5bc01223d59e3eb4d27bc..922edc5609537e015ae11840f588fd9f2c1086ec 100644 (file)
@@ -30,7 +30,7 @@ open Http_getter_debugger;;
 open Printf;;
 
 let trailing_dot_gz_RE = Pcre.regexp "\\.gz$"   (* for g{,un}zip *)
-let url_RE = Pcre.regexp "^([\\w.]+)(:(\\d+))?(/.*)?$"
+let url_RE = Pcre.regexp "^([\\w.-]+)(:(\\d+))?(/.*)?$"
 let http_scheme_RE = Pcre.regexp ~flags:[`CASELESS] "^http://"
 let file_scheme_RE = Pcre.regexp ~flags:[`CASELESS] "^file://"
 let dir_sep_RE = Pcre.regexp "/"