WAIT/Filter/utf8iso.pm

package WAIT::Filter::utf8iso;
# in a different package so older perls can use WAIT too without utf8 support

use utf8;

sub utf8iso {
  my $s = shift;
  $s =~ tr/\x{80}-\x{ff}//UC;
  $s;
}

# Don't know if needed, AK
# sub dutf8iso {
#   $_[0] =~ tr/\0-\x{ff}//UC;
#   $_[0];
# }

1;
1	package WAIT::Filter::utf8iso;
2	# in a different package so older perls can use WAIT too without utf8 support
3
4	use utf8;
5
6	sub utf8iso {
7	my $s = shift;
8	$s =~ tr/\x{80}-\x{ff}//UC;
9	$s;
10	}
11
12	# Don't know if needed, AK
13	# sub dutf8iso {
14	# $_[0] =~ tr/\0-\x{ff}//UC;
15	# $_[0];
16	# }
17
18	1;