replace the latin-charset unbreakable space with a "use utf8" and the utf8 unbreakable space

1 files changed, 4 insertions, 1 deletions

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 4d21d3aec..2368971e4 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -796,7 +796,10 @@ sub wrap_paragraph {
                 my ($text, %options) = @$_;
                 #- hack :( if ' ' is at the beginning, do not forget it, substitute
                 #- with an unbreakable space because gtk allocates too much space otherwise
-                $text =~ /^ (.*)/ and $text = " $1";
+                if ($text =~ /^ (.*)/) {
+		    use utf8;
+		    $text = ' ' . $1;
+		}
                 my @newlines = get_text_coord($text, $widget4style, $max_width, $currentx, $ydec);
                 $currentx = $newlines[-1]{'x'} + $newlines[-1]{width};
                 $ydec = $newlines[-1]{'y'};