From 1401df1a732d50b4940f4b7d6207d223bda301bd Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 23 Feb 2001 15:19:47 +0000 Subject: move the 'use my_gtk' in 'require my_gtk' and only if needed --- perl-install/Xconfigurator.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install/Xconfigurator.pm') 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); -- cgit v1.2.1