@@ -, +, @@ --- C4/Charset.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) --- a/C4/Charset.pm +++ a/C4/Charset.pm @@ -409,11 +409,8 @@ sub nsb_clean { # handles non sorting blocks my ($string) = @_ ; $_ = $string ; - s/$NSB//g ; - s/$NSE//g ; - s/$NSB2//g ; - s/$NSE2//g ; - s/$C2//g ; + s/($C2){0,1}($NSB|$NSB2)//g ; + s/($C2){0,1}($NSE|$NSE2)//g ; $string = $_ ; return($string) ; --