summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorArnaud Desmons <adesmons@mandriva.com>2002-08-19 15:40:12 +0000
committerArnaud Desmons <adesmons@mandriva.com>2002-08-19 15:40:12 +0000
commitffe188e39fe6218f9c9e48aaa04c3c66b9962357 (patch)
tree8b3a6732bf2a9d4f710ce48ddbbe2fa14f2828a0
parent292d58ccde72dd1bb351367a2302efb4c16d0c81 (diff)
downloaddrakwizard-ffe188e39fe6218f9c9e48aaa04c3c66b9962357.tar
drakwizard-ffe188e39fe6218f9c9e48aaa04c3c66b9962357.tar.gz
drakwizard-ffe188e39fe6218f9c9e48aaa04c3c66b9962357.tar.bz2
drakwizard-ffe188e39fe6218f9c9e48aaa04c3c66b9962357.tar.xz
drakwizard-ffe188e39fe6218f9c9e48aaa04c3c66b9962357.zip
fixed Wizard_title
-rwxr-xr-xdrakwizard.pl5
1 files changed, 3 insertions, 2 deletions
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;