summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-08-02 17:00:16 +0000
committerThierry Vignaud <tv@mandriva.org>2007-08-02 17:00:16 +0000
commitce0a3e60215e8e814e289c2bebb26c31b617b9fd (patch)
tree39f3bd1f2f7c2c9d9218802f17f37a2835b6e64b /perl-install/standalone/logdrake
parent097b79a7ab9a1004aff72478bf28706cd4d0d1da (diff)
downloaddrakx-ce0a3e60215e8e814e289c2bebb26c31b617b9fd.tar
drakx-ce0a3e60215e8e814e289c2bebb26c31b617b9fd.tar.gz
drakx-ce0a3e60215e8e814e289c2bebb26c31b617b9fd.tar.bz2
drakx-ce0a3e60215e8e814e289c2bebb26c31b617b9fd.tar.xz
drakx-ce0a3e60215e8e814e289c2bebb26c31b617b9fd.zip
(logcolorize) keep utf8 flag when splitting a string (should probably
be reported as a perl bug...)
Diffstat (limited to 'perl-install/standalone/logdrake')
-rwxr-xr-xperl-install/standalone/logdrake1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 59694d7be..e9c960f82 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -307,6 +307,7 @@ sub logcolorize {
$string =~ s/(\D{3} .. (\d\d:\d\d:\d\d ))//;
my $timestamp = $isExplain ? $2 : $1;
my @rec = split(/\s/, $string);
+ @rec = map { c::set_tagged_utf8($_); $_ } @rec if utf8::is_utf8($string);
log_output($timestamp, 'Bold', 'darkcyan'); # date & time if any...
# BUG: $col hasn't yet be reseted