summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorChristophe Fergeau <cfergeau@mandriva.com>2010-06-04 13:29:01 +0000
committerChristophe Fergeau <cfergeau@mandriva.com>2010-06-04 13:29:01 +0000
commitf952323a51f11d4168a40dcfa7fa5f9b785a99a4 (patch)
tree7e890fcfb9702d7ed22674953745f7d5370c77e3 /perl-install
parentd178def517a37f909a43e970fc8ae6cb10d3af05 (diff)
downloaddrakx-f952323a51f11d4168a40dcfa7fa5f9b785a99a4.tar
drakx-f952323a51f11d4168a40dcfa7fa5f9b785a99a4.tar.gz
drakx-f952323a51f11d4168a40dcfa7fa5f9b785a99a4.tar.bz2
drakx-f952323a51f11d4168a40dcfa7fa5f9b785a99a4.tar.xz
drakx-f952323a51f11d4168a40dcfa7fa5f9b785a99a4.zip
don't crash when starting stage2 with lang=ar
When starting stage2 with a RTL language set (eg when choosing it in gfxboot menu), we'd try to manipulate $::WizardWindow before it's created. Ensure it exists before using it.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/gtk.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index f58c02317..529a6871c 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -1,3 +1,4 @@
+#!/usr/bin/perl -d
package install::gtk; # $Id$
use diagnostics;
@@ -67,7 +68,7 @@ sub load_rc {
sub load_font {
my ($o) = @_;
- if (lang::text_direction_rtl()) {
+ if (defined($::WizardWindow) && lang::text_direction_rtl()) {
Gtk2::Widget->set_default_direction('rtl');
my ($x, $y) = $::WizardWindow->get_position;
my ($width) = $::WizardWindow->get_size;