Bugfixing

git-svn-id: http://svn.brehm-online.com/svn/my-stuff/Perl@105 ec8d2aa5-1599-4edb-8739-2b3a1bc399aa

diff --git a/lib/FrBr/Common/MooseX/App.pm b/lib/FrBr/Common/MooseX/App.pm
index 8905c185f720ed71f3aa70c9e7e313db5a082f98..d2311f002e247b6a8abc2d67d7bbb1818c39ebeb 100644 (file)
--- a/lib/FrBr/Common/MooseX/App.pm
+++ b/lib/FrBr/Common/MooseX/App.pm
@@ -29,7 +29,7 @@ use Log::Log4perl;
 use Path::Class;
 use File::Basename;
 use FindBin;
-use Encode qw( decode_utf8 encode_utf8 );
+use Encode qw( decode_utf8 encode_utf8 is_utf8 );
 use Data::Dump;
 use DateTime;
 
@@ -507,7 +507,8 @@ sub _log {
 
     my @Msg = ();
     for my $m ( @$message ) {
-        push @Msg, encode_utf8($m);
+        my $msg = is_utf8($m) ? encode_utf8($m) : $m;
+        push @Msg, $msg;
     }
 
     local $Log::Log4perl::caller_depth = $depth;