Revision: 467
Author: jjhellst
Date: Mon Sep 7 11:22:44 2009
Log: Apply Vladimir Zapolskiy's patch to issue 65 -- allow ~ in URLs
http://code.google.com/p/nurpawiki/source/detail?r=467
Modified:
/trunk/
main.ml
=======================================
--- /trunk/
main.ml Mon Sep 7 11:20:38 2009
+++ /trunk/
main.ml Mon Sep 7 11:22:44 2009
@@ -128,7 +128,7 @@
([], List.rev acc) in
loop [] lines
- let accepted_chars_
= "a-zA-Z\128-\2550-9_!\"§°#%&/()=?+.,;:{}'@\\$\\^\\*`´<>"
+ let accepted_chars_
= "a-zA-Z\128-\2550-9_!\"§°#%&/()=?+.,;:{}'@\\$\\^\\*`´<>~"
let accepted_chars_sans_ws = "["^accepted_chars_^"-]+"
let accepted_chars = "["^accepted_chars_^" -]+"