Make tools/build/gen-cat.pl utf8 aware.

Raku · Jun 9, 2011 · b02ce6f · b02ce6f
1 parent 547c431
commit b02ce6f
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/tools/build/gen-cat.pl b/tools/build/gen-cat.pl
@@ -1,9 +1,11 @@
 #!/usr/bin/perl
 # Copyright (C) 2008-2011, The Perl Foundation.
-# $Id$
 
 use strict;
 use warnings;
+use 5.008;
+
+binmode STDOUT, ':utf8';
 
 my @files = @ARGV;
 
@@ -14,7 +16,7 @@
 
 foreach my $file (@files) {
     print "# From $file\n\n";
-    open(my $fh, "<",  $file) or die $!;
+    open(my $fh, "<:utf8",  $file) or die "$file: $!";
     local $/;
     my $x = <$fh>;
     close $fh;