diff options
| author | Arnaud Desmons <adesmons@mandriva.com> | 2002-08-19 15:40:12 +0000 |
|---|---|---|
| committer | Arnaud Desmons <adesmons@mandriva.com> | 2002-08-19 15:40:12 +0000 |
| commit | ffe188e39fe6218f9c9e48aaa04c3c66b9962357 (patch) | |
| tree | 8b3a6732bf2a9d4f710ce48ddbbe2fa14f2828a0 /drakwizard.pl | |
| parent | 292d58ccde72dd1bb351367a2302efb4c16d0c81 (diff) | |
| download | drakwizard-ffe188e39fe6218f9c9e48aaa04c3c66b9962357.tar drakwizard-ffe188e39fe6218f9c9e48aaa04c3c66b9962357.tar.gz drakwizard-ffe188e39fe6218f9c9e48aaa04c3c66b9962357.tar.bz2 drakwizard-ffe188e39fe6218f9c9e48aaa04c3c66b9962357.tar.xz drakwizard-ffe188e39fe6218f9c9e48aaa04c3c66b9962357.zip | |
fixed Wizard_title
Diffstat (limited to 'drakwizard.pl')
| -rwxr-xr-x | drakwizard.pl | 5 |
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; |