diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-08-02 17:00:16 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-08-02 17:00:16 +0000 |
| commit | ce0a3e60215e8e814e289c2bebb26c31b617b9fd (patch) | |
| tree | 39f3bd1f2f7c2c9d9218802f17f37a2835b6e64b /perl-install | |
| parent | 097b79a7ab9a1004aff72478bf28706cd4d0d1da (diff) | |
| download | drakx-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')
| -rwxr-xr-x | perl-install/standalone/logdrake | 1 |
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 |