From 92a2f3908524627fa0c86c93cfc8f6db9b211eab Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 9 Sep 2002 11:02:04 +0000
Subject: - use variable $::no_ugtk_init in ugtk.pm instead of using
 $::isInstall - that way, the X test can be made to work both at install and
 standalone

---
 perl-install/ugtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/ugtk.pm')

diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 4b062a533..5c05a31a7 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -15,7 +15,7 @@ $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ];
 
 use Gtk;
 
-unless ($::isInstall) {
+if (!$::no_ugtk_init) {
     !$ENV{DISPLAY} || system('/usr/X11R6/bin/xtest') and die "Cannot be run in console mode.\n";
     Gtk->init;
     eval { require Gtk::Gdk::Pixbuf; Gtk::Gdk::Pixbuf->init };
-- 
cgit v1.2.1