Parent Directory | Revision Log
Initial revision
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; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.1 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |