From ffe188e39fe6218f9c9e48aaa04c3c66b9962357 Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Mon, 19 Aug 2002 15:40:12 +0000
Subject: fixed Wizard_title

---
 drakwizard.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'drakwizard.pl')

diff --git a/drakwizard.pl b/drakwizard.pl
index bbd54c8d..8a717466 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -67,9 +67,10 @@ my $o = [];
 $xmltree = XML::Parser->new(Style => 'Tree')->parsefile($ARGV[0]);
 
 get_parameter($o, $xmltree);
-navigation($o, $o->[0]);
+eval { navigation($o, $o->[0]) };
 $in->exit;
 
+
 sub translate {
     my ($format, @params) = @_;
     
@@ -90,7 +91,7 @@ sub get_parameter {
 	    my $common_freetext_chooser;
 	    my %actions = (
 			   Wizard => sub {
-			       ($wizard_title, $lib_script, $perl_module, $rpm) = @{$leaf}{qw(wizardTitle libScript perlModule rpm)};
+			       ($Wizard_title, $lib_script, $perl_module, $rpm) = @{$leaf}{qw(wizardTitle libScript perlModule rpm)};
 			       if ($perl_module) {
 				   ($::perl_module_name) = ($perl_module =~ /.*\/(.*)\.pm/);
 				   require $perl_module;
-- 
cgit v1.2.1