1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 4fd53b3f4..c1dcb2b0c 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -816,7 +816,13 @@ sub main {
     my $destroyed;
     $window->signal_connect(destroy => sub { $destroyed = 1 });
     $window->show;
-    do { Gtk2->main } while (!$destroyed && $o_verif && !$o_verif->());
+    do { 
+        if ($window->isa('Gtk2::FileSelection')) {
+            $window->run;
+        } else {
+            Gtk2->main;
+        }
+    } while (!$destroyed && $o_verif && !$o_verif->());
     may_destroy($window);
     flush();
 }