X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FLog.pm;h=96748b7ee401813e6a096bf825a33122caca9daf;hb=4ac94f292bfbf36863795ed9d695be7ad2b5b344;hp=e58d84ae486bf9d2892fbd7b54940e50c2df09d9;hpb=de30c269182d7c865eb3d1258387485dd5131819;p=debbugs.git

diff --git a/Debbugs/Log.pm b/Debbugs/Log.pm
index e58d84a..96748b7 100644
--- a/Debbugs/Log.pm
+++ b/Debbugs/Log.pm
@@ -39,7 +39,7 @@ use Carp;
 
 use Debbugs::Common qw(getbuglocation getbugcomponent make_list);
 use Params::Validate qw(:types validate_with);
-use Encode qw(encode);
+use Encode qw(encode is_utf8);
 
 =head1 NAME
 
@@ -428,7 +428,7 @@ Applies the log escape regex to the passed logfile.
 
 sub escape_log {
 	my @log = @_;
-	return map { eval {$_ = encode("utf8",$_,Encode::FB_CROAK)}; s/^([\01-\07\030])/\030$1/gm; $_ } @log;
+	return map { eval {$_ = is_utf8($_)?encode("utf8",$_,Encode::FB_CROAK):$_;}; s/^([\01-\07\030])/\030$1/gm; $_ } @log;
 }