Merge branch 'master' of git.sv.gnu.org:/srv/git/xboard
[xboard.git] / po / strip-bad-utf8.pl
1 #! /usr/bin/perl
2 #
3 # Strip off utf8 encoding that was spuriously applied to a string of
4 # 8-bit bytes.  Note: This may be totally bogus.  If you get any "Wide
5 # character in print" messages, then the input was not a string of
6 # 8-bit bytes that had utf8 encoding applied to it -- the message
7 # means that utf8 decoding produced some characters > 0xff.
8
9 binmode STDIN, ':encoding(UTF-8)';
10 binmode STDOUT, ':raw';
11
12 while (<>) {
13     print $_;
14 }