summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-08-30 15:48:53 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:36 +0100
commit527a624d8825348bcd9bd2ec0005409a89230315 (patch)
treee19153ef8ed9687aba359f2ed0124ce6e73a1ff6 /perl-install/interactive.pm
parent77a60c19faa38a8c837ce7e742d0691bb51aae97 (diff)
downloaddrakx-527a624d8825348bcd9bd2ec0005409a89230315.tar
drakx-527a624d8825348bcd9bd2ec0005409a89230315.tar.gz
drakx-527a624d8825348bcd9bd2ec0005409a89230315.tar.bz2
drakx-527a624d8825348bcd9bd2ec0005409a89230315.tar.xz
drakx-527a624d8825348bcd9bd2ec0005409a89230315.zip
fix 'Too late to run INIT' with Gtk3
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 34ae7a4de..9d5c6c3f3 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -112,7 +112,10 @@ sub vnew {
}
require_root_capability() if $su;
if (check_for_xserver()) {
- eval { require interactive::gtk };
+ eval {
+ use Glib::Object::Introspection;
+ require interactive::gtk;
+ };
if (!$@) {
my $o = interactive::gtk->new;
if ($o_icon && $o_icon ne 'default' && !$::isWizard) { $o->{icon} = $o_icon } else { undef $o->{icon} }