From 527a624d8825348bcd9bd2ec0005409a89230315 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 30 Aug 2013 15:48:53 +0200
Subject: fix 'Too late to run INIT' with Gtk3

---
 perl-install/interactive.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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} }
-- 
cgit v1.2.1