fixed: international characters are corrupted on export

This commit is contained in:
Graham Knop 2008-12-03 00:32:43 +00:00
parent 4a88e39c21
commit f3e08f3268
3 changed files with 32 additions and 15 deletions

View file

@ -753,7 +753,7 @@ sub exportWriteFile {
}
# next, get the contents, open the file, and write the contents to the file.
my $fh = eval { $dest->openw };
my $fh = eval { $dest->open('>:utf8') };
if($@) {
WebGUI::Error->throw(error => "can't open " . $dest->absolute->stringify . " for writing: $!");
}