readline, perl locale fix