Try to make Perl scripts locale compliant

1 files changed, 1 insertions, 0 deletions

diff --git a/bin2c.pl b/bin2c.pl
index c5498f24..103c4bf5 100644
--- a/bin2c.pl
+++ b/bin2c.pl
@@ -16,6 +16,7 @@
 #
 
 eval { use bytes; };
+eval { binmode STDIN; };
 
 if ( $#ARGV != 0 ) {
     print STDERR "Usage: $0 table_name < input_file > output_file\n";