let h = match head with
MQString (s) -> Str.global_replace (Str.regexp "\.") "\\\\\." s
| MQSlash -> "/"
- | MQAnyChr -> "[^/]?"
- | MQAst -> "[^/]*"
- | MQAstAst -> ".*"
+ | MQAnyChr -> "[^/#]?"
+ | MQAst -> "[^/#]*"
+ | MQAstAst -> "[^#]*"
in
h ^ (patterneval tail)
;;