move the 'use my_gtk' in 'require my_gtk' and only if needed

1 files changed, 4 insertions, 1 deletions

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 30c4fdc4e..38452f0a3 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -11,7 +11,6 @@ use run_program;
 use Xconfigurator_consts;
 use any;
 use modules;
-use my_gtk qw(:wrappers);
 
 my $tmpconfig = "/tmp/Xconfig";
 
@@ -571,6 +570,10 @@ sub autoDefaultResolution {
 
 sub chooseResolutionsGtk($$;$) {
     my ($card, $chosen_depth, $chosen_w) = @_;
+
+    require my_gtk;
+    my_gtk->import(qw(:wrappers));
+
     my $W = my_gtk->new(_("Resolution"));
     my %txt2depth = reverse %depths;
     my ($r, $depth_combo, %w2depth, %w2h, %w2widget);