ambiser
/
btrbk
mirror of https://github.com/digint/btrbk
9
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Set STDERR, STDOUT, log file and config file binmode to UTF8 

In addition use three argument open for opening the log file instead of
combining the mode and filename together.
pull/235/head
Samantha McVey 2018-03-28 12:16:43 -07:00
parent 1d0d57ffac
commit 68164d21e5
No known key found for this signature in database
GPG Key ID: A68DF012C3881D62
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
btrbk
View File

@ -27,6 +27,8 @@
use strict; use strict;
use warnings FATAL => qw( all ), NONFATAL => qw( deprecated ); use warnings FATAL => qw( all ), NONFATAL => qw( deprecated );
binmode STDOUT, ':encoding(UTF-8)';
binmode STDERR, ':encoding(UTF-8)';
use Carp qw(confess); use Carp qw(confess);
use Getopt::Long qw(GetOptions); use Getopt::Long qw(GetOptions);
@ -417,7 +419,9 @@ sub init_transaction_log($$)
my $file = shift; my $file = shift;
my $config_syslog_facility = shift; my $config_syslog_facility = shift;
if(defined($file) && (not $dryrun)) { if(defined($file) && (not $dryrun)) {
if(open($tlog_fh, ">> $file")) { if(open($tlog_fh, '>>', $file)) {
binmode $tlog_fh, ':encoding(UTF-8)';
# print headers (disabled) # print headers (disabled)
# print_formatted("transaction", [ ], output_format => "tlog", outfile => $tlog_fh); # print_formatted("transaction", [ ], output_format => "tlog", outfile => $tlog_fh);
INFO "Using transaction log: $file"; INFO "Using transaction log: $file";
@ -3535,6 +3539,8 @@ sub parse_config(@)
INFO "Using configuration: $file"; INFO "Using configuration: $file";
open(FILE, '<', $file) or die $!; open(FILE, '<', $file) or die $!;
binmode FILE, ':encoding(UTF-8)';
while (<FILE>) { while (<FILE>) {
chomp; chomp;
s/#.*//; # remove comments s/#.*//; # remove comments