fix garbaged UTF-8 in file name arguments (mga#12407)

@ARGV encoding is changed after calling Gtk3->init

1 files changed, 7 insertions, 0 deletions

diff --git a/gurpmi b/gurpmi
index 8dfd79d4..bc66e877 100755
--- a/gurpmi
+++ b/gurpmi
@@ -10,6 +10,8 @@ BEGIN { #- set up a safe path and environment
     delete @ENV{qw(ENV BASH_ENV IFS CDPATH)};
 }
 
+use utf8 'valid';
+use Encode '_utf8_on';
 use Gtk3;
 use gurpmi;
 use urpm::util 'basename';
@@ -27,6 +29,11 @@ my ($srpms, $rpms) = ([], []);
 my ($mainw, $mainbox);
 my @all_rpms = gurpmi::parse_command_line();
 
+# Gtk3->init will change @ARGV encoding (mga#12407):
+foreach (@ARGV) {
+    utf8::valid($_) && Encode::_utf8_on($_);
+}
+
 #- Now, the graphical stuff.
 
 Gtk3->init;