Remove combining characters at beginning of string in it::any2utf8() (mail8281)

1 files changed, 2 insertions, 0 deletions

diff --git a/it.class b/it.class
index 0c2ec18..ddb95eb 100644
--- a/it.class
+++ b/it.class
@@ -610,6 +610,8 @@ static function any2utf8($value, $errprefix = "")
 			list($value, $error) = array(preg_replace('/\xef\xb7[\x90-\xaf]|\xef\xbf[\xbe\xbf]/', " ", $value), "forbidden utf-8 character. input=$value");
 		$value = preg_replace('/\xc2\xad/', '', $value);	# Kill invisible soft hyphens
 		$value = normalizer_normalize($value, Normalizer::FORM_C);
+		if (preg_match('/^\pM/u', $value))	# Remove combining characters (e.g. U+0338 "Combining Long Solidus Overlay") at beginning of string
+			list($value, $error) = array(preg_replace('/^\pM+/u', "", $value), "combining character at beginning of string. input=$value");
 		if ($error && $errprefix)
 			it::error(array('title' => "$errprefix: " . trim($error)));
 	}