From da0e33deed876669ce5112d02797269c7a65b19e Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 19 Mar 2012 10:46:17 -0700
Subject: [PATCH] encode utf8 log files

---
 Debbugs/Log.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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