summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-10-28 14:53:39 +0000
committerOlivier Blin <oblin@mandriva.com>2009-10-28 14:53:39 +0000
commit48d7d284a65ece03c8918053147c2cbd11c78735 (patch)
treec3807917e7ef46c3f6bfe9922cf156207312f738 /perl-install
parentc3355616592a6ff4982cadc2dc07322b3604a8e9 (diff)
downloaddrakx-48d7d284a65ece03c8918053147c2cbd11c78735.tar
drakx-48d7d284a65ece03c8918053147c2cbd11c78735.tar.gz
drakx-48d7d284a65ece03c8918053147c2cbd11c78735.tar.bz2
drakx-48d7d284a65ece03c8918053147c2cbd11c78735.tar.xz
drakx-48d7d284a65ece03c8918053147c2cbd11c78735.zip
do not "use" gtk modules, it might crash in text mode
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/partitioning_wizard.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 3d1d8d849..ad54cb1be 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -494,14 +494,15 @@ sub main {
my $sol;
if ($o->isa('interactive::gtk')) {
- use mygtk2;
-
+ require mygtk2;
+ import mygtk2 qw(gtknew);
+
my $mainw = ugtk2->new(N("Partitioning"), %$o, if__($::main_window, transient => $::main_window));
$mainw->{box_allow_grow} = 1;
mygtk2::set_main_window_size($mainw->{rwindow});
- use diskdrake::hd_gtk;
+ require diskdrake::hd_gtk;
diskdrake::hd_gtk::load_theme();
my $mainbox = Gtk2::VBox->new;