[web] get rid of some "wide character in print" warnings

masak · May 8, 2010 · 4f43c3c · 4f43c3c
1 parent 60d0280
commit 4f43c3c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/web/build-project-list.pl b/web/build-project-list.pl
@@ -9,6 +9,7 @@
 use HTML::Template;
 
 my $output_dir = shift(@ARGV) || './';
+binmode STDOUT, ':encoding(UTF-8)';
 
 local $| = 1;
 my $stats = { success => 0, failed => 0, errors => [] };
@@ -77,7 +78,7 @@
 print "index.html and proto.json files generated\n";
 
 sub spew {
-    open( my $fh, ">", shift ) or return -1;
+    open( my $fh, ">:encoding(UTF-8)", shift ) or return -1;
     print $fh @_;
     close $fh;
     return;