hjp
/
simple
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use locale for output encoding.

This commit is contained in:
hjp 2013-12-18 16:29:00 +00:00
parent defe773283
commit 61aff0e077
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dbi/dumpsql
View File

@ -20,6 +20,11 @@ use strict;
use DBI; use DBI;
use Getopt::Long; use Getopt::Long;
use Encode qw(:fallbacks encode); use Encode qw(:fallbacks encode);
use I18N::Langinfo qw(langinfo CODESET);
my $charset = langinfo(CODESET);
binmode STDOUT, "encoding($charset)";
my $help; my $help;
my $vertical; # use vertical output format my $vertical; # use vertical output format