--- toast 2004/02/04 06:06:21 1.288 +++ toast 2004/02/04 23:19:21 1.289 @@ -724,8 +724,8 @@ for(@words) { error unless defined($_); - next unless m![^0-9a-z\+,\./:\@_-]!; - /'/ ? s!([^0-9a-z\+,\./:\@_-])!\\$1!g : ($_ = "'$_'"); + next unless m![^\w\+,\./:\@-]!; + /'/ ? s!([^\w\+,\./:\@-])!\\$1!g : ($_ = "'$_'"); } return @words; }