From f952323a51f11d4168a40dcfa7fa5f9b785a99a4 Mon Sep 17 00:00:00 2001
From: Christophe Fergeau <cfergeau@mandriva.com>
Date: Fri, 4 Jun 2010 13:29:01 +0000
Subject: 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.
---
 perl-install/install/gtk.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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