--- po4a-normalize	2004-07-19 12:21:12.000000000 +0200
+++ ../../po4a/po4a-normalize	2004-09-29 20:06:36.000000000 +0200
@@ -111,10 +111,13 @@
 
 my ($help_fmt,$help,$type,$debug,$verbose,@options);
 Getopt::Long::Configure('no_auto_abbrev','no_ignore_case');
+my ($mastchar);
 GetOptions(
         'help|h'       => \$help,
 	'help-format'  => \$help_fmt,
         'format|f=s'   => \$type,
+
+	'master-charset|M=s'    => \$mastchar,
     
         'option|o=s'    => \@options,
 
@@ -144,6 +147,8 @@
 -e $filename || die sprintf(gettext("File %s does not exist."),$filename)."\n";
 
 $parser->read($filename);
+$parser->{TT}{utf_mode} = 1;
+$parser->{TT}{file_in_charset} = $mastchar;
 $parser->parse();
 $parser->write('po4a-normalize.output');
 $parser->writepo('po4a-normalize.po');