diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-08-30 15:48:53 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:36 +0100 |
| commit | 527a624d8825348bcd9bd2ec0005409a89230315 (patch) | |
| tree | e19153ef8ed9687aba359f2ed0124ce6e73a1ff6 /perl-install | |
| parent | 77a60c19faa38a8c837ce7e742d0691bb51aae97 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/interactive.pm | 5 |
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} } |