Don't decode utf-8 text when the locale charset is itself in utf-8.

Optimize utf-8 text manipulations.

1 files changed, 4 insertions, 2 deletions

diff --git a/urpm/msg.pm b/urpm/msg.pm
index 28e3438d..2c559395 100644
--- a/urpm/msg.pm
+++ b/urpm/msg.pm
@@ -26,7 +26,9 @@ defined $codeset or eval {
 sub from_utf8_full { Locale::gettext::iconv($_[0], "UTF-8", $codeset) }
 sub from_utf8_dummy { $_[0] }
 
-*from_utf8 = defined $codeset ? *from_utf8_full : *from_utf8_dummy;
+our $use_utf8_full = defined $codeset && $codeset eq 'UTF-8';
+
+*from_utf8 = $use_utf8_full ? *from_utf8_full : *from_utf8_dummy;
 
 sub import {
     urpm::msg->export_to_level(1, @_);
@@ -43,7 +45,7 @@ sub N {
 	eval { Locale::gettext::gettext($format || '') } || $format,
 	@params,
     );
-    utf8::decode($s);
+    utf8::decode($s) unless $use_utf8_full;
     $s;
 }