'~' char included as valid URL char in filter

git-svn-id: https://beef.googlecode.com/svn/trunk@89 b87d56ec-f9c0-11de-8c8a-61c5e9addfc9

include/filter.inc.php

@@ -14,7 +14,7 @@
 	
 	function valid_url($url) {
 		if( preg_match("/\.\./", $url) ) return FALSE;
-		if( ! preg_match("/^[a-zA-Z0-9\._:\/~]*$/", $url) ) return FALSE;
+		if( ! preg_match("/^[\-a-zA-Z0-9\._:\/~]*$/", $url) ) return FALSE;
 		return filter_var($url, FILTER_VALIDATE_URL, FILTER_FLAG_SCHEME_REQUIRED);
 	}